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ABSTRACT 

Each inventory manager at the Aviation Supply Office Philadelphia, PA is presently 
required to manage approximately 700 line items. To allow the inventory manager a 
more efficient method of reviewing and using the data and reports from the Uniform 
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* Interactive access to the main UICP database. 

* The ability to use UICP data with a decision support system. 

* A. user interface that is easy to understand and learn. 
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« Basic office automation. 
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I, INTRODUCTION 


A. BACKGROUND 


Each inventory manager at the Aviation Supply Office, Philadelphia, PA is 
presently required to manage approximately 700 line items. The inventory manager's 
job is to ensure that sufficient consumable and repair parts are available in the Navy 
Supply System to satisfy requests for material from both end users and stock points. 
The present management system they use is management by exception, which is aided to 
a great extent by the Uniform Inventory Control Point (UICP) computer system 
resident on an IBM 3090 mainframe. The UICP system performs various automatic 
inventory reviews, manages the current stock status, and contains various technical and 
supporting data needed to manage and procure the spare parts. UICP produces various 


formal printed reports. These reports are provided to the inventory manager for his 
or her review and as a trigger to perform specific actions!. 


ASO Inventory Managers have access to the UICP database via IBM 3270 series 
terminals. The UICP database structure contains approximately four thousand data 
elements (DENS). Thirty-nine individual data retrieval programs are available to the 
item manager under the AQ2 information retrieval application [Ref. 1]. Appendix A 
contains a complete listing of all the AO2 programs. Each program acts as an 


independent retrieval application, although there is a large amount of data element 


! Validate proposed buy quantities, review if items are in long supply. 


redundancy between these thirty-nine programs. For example DEN C003 (Cognizance 
Symbol) is used in 6 different programs (AS, BK, CD, CH, EF, NA). 


The usefulness of the AO2 programs are further limited by the cryptic output to 
IBM 3270 terminal screen displays which use data element (DEN) numbers rather then 
english descriptions of the data fields. Figure 1 shows the screen display from a typical 


A0Q2 program. For example, instead of showing "Cognizance Symbol” or the commonly 


USER ID: OZBGOPG PROGRAM AS VERSION BOO OUTPUT 88/08/03 
MASTER DATA FILE DATA iv: 16228 


000971444 RFI ALL B45: 00000 


9.36 B19: 6296 B21: 2602 B74: 


Al4 A25 B46A AGA 
TOT PR REORDER STPDT RD OBSV 


PF1I=VALID KEYS PF1S=PAGE FORWARD PF20=PAGE BACKWARD 
PRESS PF19 TO SEE ADDITIONAL PAGES 





Figure 1 Example of an AQ2 Application, Display Screen. 


2 Two letter abbreviations are used to refer to the AQ2 programs. These abbrevia- 
tions refer to the original UICP COBAL batch retrieval programs. 


used term "COG" on the display, the data element number "C3"3 is shown. Further- 


more there is no way for an item manager to save this output information on-line or 
tO move it to other computer programs (e.g., a spreadsheet or database type program) 
for analysis. The only procedure available to the managers is to press the print screen 
button on the IBM 3270 terminal which will cause an image of the screen to be sent to 
a local printer. If the program has multiple screens, the manager has to print each 
screen individually. A problem exists for the managers because between 10 to 16 of 
them share a single printer, and the print screen process doesn’t send screen images to 
a print queue. The printed output from the various managers thus becomes intermixed, 
requiring a time consuming identification and hand sorting process [Ref. 2]. 

The formal UICP printed reports are handled by the inventory manager in the 
method shown in Figure 2. When the inventory manager receives a report generated by 
the UICP program, he or she needs to access the on-line AQ2 program to retrieve 
various management information which isn’t provided by the UJCP report, or which 
the manager believes have to have aged since the UICP report was generated. The item 
manager then reviews the available information and makes his or her decisions. Since 
many of the item managers decisions are based upon knowledge gained from the various 
senior managers who trained them, there is a lack of consistency in the decision making 
process applied to the UICP reports. Additionally the present manual methods make it 
extremely difficult for the item manager’s superiors to ensure that the decisions are in 


accordance with the inventory control point’s policy. 


3 C3 is used instead of the actual data element name C003 
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Figure 2 Flow of UICP Printed Reports 


After the item manager’s decisions are made, the printed reports are annotated to 


reflect their decisions and then forwarded to a data entry clerk who enters the data 


into the UICP program. The system is updated and the management cycle is started 
again when new exception reports are generated. 

As previously mentioned, the inventory manager presently does not have access to 
a computerized decision support system (DSS). The inventory manager can access the 
UICP database outside the AOQ2 programs and perform ad hoc queries using a database 
package called FOCUS, but the process is extremely slow and requires computer 
programming skills. A paper report can be requested, but the report data can not be 
imported into a DSS for analysis. A DSS could be used to evaluate the report’s data 
or ensure the manager’s actions are consistent and conform to standard operating 
procedures. 

Russell L. Ackoff of the University of eevien in his article, "Management 
Misinformation Systems," [Ref. 3:p. 147] stated "My experience indicated that most 
managers receive much more data (if not information) than they can possible absorb 
even if they spend all of their time trying to do so. ... I have seen daily stock status 
reports that consists of approximately six hundred pages of computer printout. The 
report 1s circulated daily across managers’ desks." This is an almost exact corollary to 
ASO’s inventory managers’ situation. They have access to over 4,000 data elements 
via thirty-nine applications, plus several immense printed reports. The reports contain 
a large amount of the data available from the on-line applications. "Unless the 
information overload to which managers are subjected is reduced, any additional 
information made available by an MIS cannot be expected to be used effectively.” [Ref. 
3:p. 148]. In the case of the inventory managers, the volume of available information 


and the difficulty of extracting and working with the data can be counter productive. 


B. THESIS OBJECTIVE 

To allow the inventory manager a more efficient method of reviewing and using 
the data and reports from UICP, a distributed computer system is necessary. By 
downloading the appropriate inventory data from the main database to a local 
computer system, a decision support system can be implemented using existing off the 
shelf hardware and software to assist the inventory manager. The ability to replace the 
present copious paper reports with concise computerized information and import that 
data into electronic spreadsheets for further analysis can greatly improve the inventory 
manager’s effectiveness. To this end, this thesis provides a limited number of inventory 
managers at ASO with access to the following functions: 


¢ Interactive access to the main UICP database. 

¢ The ability to use UICP data with a decision support system. 

¢ A user interface that is easy to understand and learn. 

¢ A local data base which supports working group requirements. 
¢ Basic office automation. 

¢ Action tracking and management information. 

¢ Electronic mail. 


A prototype system called the "IM Workstation” was developed for this thesis. 
C. APPROACH 

To accomplish the thesis objective described above, work was done in the areas 
listed below. Each of these areas will be briefly described in the remainder of this 
chapter, and more thoroughly covered in subsequent chapters. 


¢ Hardware selection 
¢ Software selection 
¢ Data identification and management 


* Program and decision support system development 


¢ System integration 


¢ On site testing 

For each area I reviewed the present environment and tried to find the best 
combination of hardware and software that would support the desired functions. To 
understand the present environment I traveled extensively to the Aviation Supply Office 
(ASO) in Philadelphia, PA and worked with various ASO personnel. The result of these 
trips was an understanding of the inventory manager’s present working environment. 
In order to design a decision support system which would meet the needs of the item 
managers at ASO, I] had to learn about the types of information they use to make 
decisions, and determine how much of this information was available from UICP. This 
insight into the inventory manager’s needs can be merged with computer technology 
and can be used to improve their efficiency and the quality of their work environment. 
D. METHODOLOGY 

The following list describes the methodology which was used to approach each of 
the areas mentioned in the previous section: 

1. Hardware Selection 

Study the ASO environment and select the best hardware type that would 

Support the overall requirements. 

2. Software selection 

Review the available integrated office automation software and select the one 

which best supports the requirements of: 


0 Access to the UICP database from within the office automation software. 


° Ability to import a subset of the UICP database and use the data within the 
office automation software to form a decision support system. 


° A user interface that is as easy to understand and learn as the Xerox PARC / 
Open View interface standard. (The Xerox standard is the industry accepted 
standard. Examples of systms using this standard are the Apple Macintosh, 
Microsoft Windows, IBM Presentation Manager.) 


° Electronic Mail which can be transmitted between the inventory managers and 
other groups and organizations. 


3. Data identification and management 
Interview inventory managers and analyze the UICP data products they use. 
Determine which data elements, provided by the UICP products, they need to perform 
their duties. Learn how the inventory managers process the information they obtain, 
and how they use it to make decisions. 
4. Program development 
Use the selected software product to develop the DSS. 
5. System integration 
Integrate the IM Workstation into the IBM 3090 mainframe environment. 
Provide the following telecommunications access: Remote Job Entry (logical unit one 


(LU 1); TTY terminal access (LU 2); and Block terminal (LU 6.2). 


II. DECISION SUPPORT SYSTEMS 


A. INTRODUCTION 
To understand what a decision support system (DSS) is and how it could be used 

to support the ASO inventory manager we will discuss the: 

¢ Theoretical framework. 

¢ Components of the DSS. 

¢ System Integration. 

¢ Measures of effectiveness. 
B. THEORETICAL FRAMEWORK 

In designing a DSS, usefulness and ease of use are the most important characteris- 

tics. Usefulness is the degree to which a DSS assists a decision maker in performing 
his/her tasks. Does the DSS allow the decision maker to be more efficient and make 
better, more effective decisions? Ease of use is important because no matter how 
good a DSS is, if it is difficult to use or not understood, the targeted users will not 
use it Or will not trust it. Sprague and Carlson present a framework for designing a 
DSS that considers this user-oriented approach [Ref. 4]. They characterize a DSS as a 
computer based system which helps decision makers confront ill-structured problems 
through direct interaction with data and analysis models. Sprague and Carlson’s 
framework uses Representations, Operations, Memory Aids, and Control Mechanisms 
to define the capabilities of the DSS. The DSS should provide the capabilities of a 
Dialog component, a Data component and a Model component (Figure 3). Each of 


these components will be discussed later in this chapter. 





Figure 3 Components of a DSS 


The current system used by inventory managers somewhat resembles Mason’s 
databank design as shown in Figure 4 [Ref. 5]. The information system provides 
reports based upon the data it is analyzing. The decision maker is then required to act 
upon the reports based upon his own experiences and knowledge. The drawbacks of 
the databank type of system shown in Figure 4 are evident in the current inventory 


System. Reams of paper, containing much irrelevant data, are produced by the UICP 
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program on the IBM 3090. The inventory manager’s response, to this volume of 
information, is to ignore much of the data and manage by exception. Decision making 
tasks are performed by the inventory manager without the aid of an automated 
support system and the quality of his or her decisions are a function of his or her 
experience. While procedures and guidelines are provided to the inventory manager, in a 
manual system their personal preferences and individual experience strongly influence 
how they solve the problem. These decisions may lack consistency when you look at 
inventory managers as a group. Tversky & Kahneman state that how choices/decisions 
are framed for the decision maker can influence his or her decision [Ref. 6:pp. 


453-458]. 


REQUESTS 


PREDICTIONS VALUE 
AND AND ACTION 
INFERENCES CHOICES 


REPORTS 


INFORMATION SYSTEM DECISION MAKERS 





Figure 4 Mason’s Databank Design 


The DSS will make predictions, draw inferences, evaluate, and recommend a choice of 
action. The DSS can have choices couched in such a way that inventory managers make 
their decision in accordance with standard operating procedures rater than their own 
preferences without realizing it. For the inventory manager (IM) these decisions could 


be in the areas of quantity to buy or to issue. While the DSS can assist the inventory 
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manager in making a correct decision, taking action will still be the responsibility of the 
decision-maker. 

In the current system, the supervisor also does not have an effective method of 
determining if the inventory manager is making efficient use of the data provided. By 
the time a supervisor realizes that one of his or her managers has been ignoring the 
data from the reports, the damage is done and could take years to correct. The same 
computer that provides the DSS for the inventory manager could also provide a DSS 
for the supervisor that is linked to the same database. This supervisory level DSS could 
be used to monitor the inventory manager. This monitoring would ensure that the 
inventory manager is taking advantage of the data provided from the mainframe models 
through the DSS. For example, a supervisor could check to see if inventory manager's 
are using the DSS to review stock numbers called out by the supply demand review (a 


UICP mainframe model). 


What Course of 
Action is Best? 


PREDICTIONS VALUE 
AND AND ACTION 
INFERENCES CHOICES 


Recommendation 


INFORMATION SYSTEM DECISION MAKERS 





Figure 5 Mason’s Decision-Making System 


The DSS for inventory managers, proposed in this thesis, is similar to Mason’s 
decision-making system [Figure 5}. "A DSS does not replace or compete with other 


Systems; instead, it extracts from other systems the information that is essential to 


Ihe 


the process of decision-making." [Ref. 7:pp. 115-121]. For the inventory manager, 
the DSS provides a method of accessing the data on the mainframe and receiving the 
Outputs in an electronic form (as opposed to paper) such that the information can be 
further analyzed. For example, the DSS would allow the importing of data generated by 
the supply demand review (SDR) into a preformatted spreadsheet. This spreadsheet 
would allow the manager to adjust variables such as expected demand and examine the 
effects of inventory levels on expected buy quantities. Once the manager decided upon 
the appropriate quantity to buy, the DSS system could generate a procurement request 
and forward it via a network for action. This action could trigger several reports that 
would be added to the inventory manager’s electronic stock number notebook. 

An interface between the mainframe models and the DSS would provide a action 
tracking system that would act as a holding file for reviews recommended by the 
models but not yet conducted by the inventory manager. This file would show the 
inventory manager what work is still outstanding and would also allow the supervisor 
to monitor reviews that have been in the action tracking system for an extended period 
of time without action having been taken. Thus this DSS would serve multiple levels of 
users. The most important feature of this DSS is that managers are allowed to work 
interactively with the data. The DSS will assist them in making decisions but will not 
replace their judgment. As discussed by Keen, if a task can be completely automated, 
there is no need for the manager to be involved at all with the decision process. A DSS 
should be used with "semi-structured" tasks in which some functions can be best 


handled by the computer system and others by the manager [Ref. 8:pp. 88-99]. 


8) 


C. COMPONENTS OF THE DSS 
As shown in Figure 3, the three Components of a DSS, as defined by Sprague and 


Carlson, [Ref. 4] are: 


¢ Dhialog 
e Data 
¢ Models 


The union of these three components provides the necessary interface between the user 
and the master data base. Not only is this an extraction of data from the mainframe, 
but it is also a methodology for how the data is effectively used once it is at the 
user’s disposal. Each of the three components for this specific DSS will be addressed in 
turn. 
1. Dialog Component 

An important part of the interface is the dialog component. The dialog compo- 
nent is concerned with how the information is displayed to the user, and how the user 
interacts with the DSS. Alexander considers a well-designed, graphical output to be 
one of eight critical success factors in developing an effective DSS [Ref. 7:pp. 
115-121]. A graphical user interface such as that recommended by Xerox’s Palo Alto 
Research Center (PARC) will provide the user with representations that are easily 
understood. Xerox’s recommendations for the "Star User Interface" included [Ref. 
9:pp. 242-282): 


¢ Icon based user interface. 
¢ Black letters on a white screen. 
¢ Multiple Windows. 


¢ Mouse based pointing system 
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¢ What you see is what you get (WYSIWYG) display. 
¢ Standardized interface between various applications. 
¢ Pull down menus. 

This standard has been best implemented in the Apple Macintosh series of comput- 
ers. This dialog interface is also available on several other systems such as Digital 
Research’s GEM operating system and ALIS, a multi-user, UNIX based office automa- 
tion package. In order to accommodate multiple users and the varying skill and 
experience levels of the users, an effective and easy to use DSS should be chosen. This 
will allow the user to select the options he or she prefers or requires. For this reason, 
the DSS used in this thesis was the ALIS software which has the Xerox "Star User 
iiteriace ’. 

ALIS was also selected because it has the necessary tools to build and support a 
DSS. It contains the following functions: 


¢ Word Processing 

¢ Spreadsheet 

¢ Database 

¢ Graphics 
This system allows the spreadsheet and database to be pre-scripted! to import 
mainframe data and provide the tools for the inventory manager to analyze the data 
and make a decision. The interrelationship of data and models to the dialog component 


will be discussed in greater depth in the following sections. Chapter 3 will discuss the 


selection of the ALIS software system in more depth. 


I The attributes and design of a standard document can be predefined and saved for 
future use. 


Is 


2. Data Component 

The next component to consider is the data component. In the current system, 
the data resides on an IBM 3090 mainframe. While this mainframe can hold a huge 
volume of data, the item manager must be able to easily determine which data items are 
needed and to obtain this selected data easily. With the UICP system containing over 
4,000 data elements, the complexity associated with extracting the data from UICP 
means it is only possible for individuals with extensive programming experience to 
access the data. Access to this data is only available to the item manager via the limited 
AOQ2 application programs. 

In building a DSS, Keen [Ref. 8:pp. 88-99] suggests asking some key questions 
such as: 


¢ What is the decision or task? 
¢ What information is used? 


¢ In what way is the information used to reach the decision or task? 
Interviewing the inventory managers will hopefully reveal the information needed to 


build the DSS. The objective of the interview is to determine what data the inventory 


managers use, what data they perceive that they need but do not have, and what data 
they perceive that they need but, in reality, do not use. This could be accomplished by 
interviewing a group of inventory managers. They would be asked to describe: 


« What procedures they do and actions they take. 
¢ What data and reports they use in performing those procedures. 


* What data and information they use from the present reports or print-outs. 


By including both open-ended questions, directed questions, and observations, we 
would hope to determine most of their needs for data, while at the same time avoiding 
some of the erroneous assumptions described by Ackoff [Ref. 3:pp. 147-156] such as: 
more data is better and the manager needs what he wants. 

But interviewing the inventory manager is not an end in itself. While the 
inventory managers have stated how they work with and use the data, their actions 
might not be in accordance with present policy. As discussed by Huber [Ref. 10:pp. 
567-579], care must be taken not to reinforce a lack of procedural compliance that 
could be introduced into the system from these interviews. The end result of the DSS 
design process is to develop a system that blends the managers cognitive style with 
proper procedure. The resulting DSS presents a computer based system that is 
procedurally correct but representative of the manager’s cognitive style. 

Once the total spectrum of mainframe data elements is boiled down to a usable 
kernel, day to day data needs and exception data from the models can be identified. 
The goal is to generate a data file each night that can be down loaded to the inventory 
manager's working group computer. This data file should be able to provide 85 to 90 
percent of the daily data requirements of the inventory manager. The mainframe 
models generate items for review, e.g., levels and supply demand review (SDR). Present 
UICP methods take the few, new pieces of information and, using day to day data, 
generate a printed report. The DSS will only require the new data elements and the 
merging will occur at the inventory manager’s level. This will be a much more efficient 


use Of mainframe computer resources. 
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Through the use of a multi-user / multi-tasking minicomputer the inventory 
manager will be able to use the DSS to access this data and use it more efficiently. Not 
only does this method of data movement reduce interactive queries on the mainframe 
but it also provides the inventory manager with a structured way to manipulate the 
data. 

3. Model Component 

The third component in the design is the model component. The interviews, in 
addition to determining the data requirements, will provide an insight into how the 
inventory managers perform their tasks and, hopefully, how the processes involved 
could be improved and made more effective. Gorry and Scott Morton [Ref. 11:pp. 
55-70] suggest that the types of models to use will] vary with the skill and experience 
level of the manager, as well as their training and background. The type of operations 
(and models which will perform these operations) can be determined through the 
interviews. 

As part of building the DSS model, the inventory managers must understand it 
or have an opportunity to review an explanation of its functions. Brennan and Elam 
[Ref. 12] suggest that the DSS must be able to answer the "why" as well as the "what 
if’. They also suggest that the output be presented conceptually rather then in a 
data-oriented way to assist in the understanding of the information being presented. 
An example of information being presented in a conceptual, rather then a data oriented 
style would be the DSS providing a line graph plotting buys versus demand. The graph 


would replace a report with the two columns of numbers showing buys and demands. 
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Tversky and Kahneman [Ref. 6:pp. 1124-1131] stress that it is not enough to 
give the manager the information he needs. The information must be presented in a 
such a way as to overcome misconceptions, biases and fallacious thinking. Further, the 
manager must trust the DSS. The end result will be more consistent than that 
obtained with the inventory manager using printed report, pencil and calculator to 
compute requirements. 

It is clear that the success and effectiveness of this DSS is greatly dependent 
upon its ability to elicit information from the inventory managers. It is, of course, 
important to know what data is required by the managers. This data forms the data 
base component. How and in what way the data must be manipulated is also important 
and forms the model base component of the system. 

In the current system, data is available, but access is slow and inflexible. The 
data and models which are necessary for the inventory manager to perform his job need 
to be accessible quickly and easily. To avoid overwhelming the inventory manager with 
more data and more options than he can realistically use, some limits must be placed on 
what is made available. It is not feasible to provide all the information that the 
manager might ever need. Rockart [Ref. 13:pp 81-93] suggests a methodology in 
which chief executives define their needs by clarifying what they view as critical success 
factors. A similar approach can be taken here to clarify the needs of the inventory 
managers. 

D. SYSTEM INTEGRATION 
Once the components of the DSS have been defined, the shell to provide system 


integration must be specified. The shell will provide the tools to implement the DSS 
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and in this case, also perform Office Automation (OA). While the DSS will assist the 
inventory manager in making more effective decisions, much of the inventory manager's 
day is spent doing more mundane tasks such as preparing memos and letters, perform- 
ing quick "what if" analysis, and maintaining their inventory manager’s. OA consisting 
of word processing and spreadsheet and database capabilities which will reduce the 
length of time these tasks require and improve the quality of the output from these 
activities. 

The DSS program 1s integrated into the OA system. The inventory manager 
perceives the DSS as another application choice like the existing applications. Therefore, 
in addition to a word processing, a spreadsheet and a personal database, a choice of 
Inventory assistance would be available. The more the DSS appears as a part of the OA, 
the less chance that the inventory managers will perceive the system as an attempt by 
management to control them, and more as a tool to assist them. Despite the fact that 
the DSS will actually yield the greatest improvement in the inventory manager’s 
effectiveness, the inventory manager will perceive OA as being most helpful. This is due 
to the dislike that inventory manager’s have for the disproportional amount of time 
spent performing these mundane secretarial tasks. Once this burden is reduced, the 
benefits provided by the inventory assistance applications will be realized. 

A final capability provided by the OA system would be an electronic mail system 
(E-Mail). The present inventory control point (ICP) mail system is a separate applica- 
tion. In order for an inventory manager to send or receive mail on the current 3270 
terminals, they must leave the application they are in and start the E-mail package. The 


E-mail on the IM Workstation would allow the inventory manager to pause, send or 


receive mail, and then resume their work. Not only is less time wasted, but the 
inventory manager’s thought process is not interrupted. Additionally the integrated 
system would allow memos, letters, spreadsheet, and data files created by the system 
to be mailed. 
E. MEASURES OF EFFECTIVENESS 

Another item that must be considered for this, or any, DSS is the measure of its 
effectiveness. Some DSS benefits summarized by Keen [Ref. 14] include: fast response 
to unexpected situations, ability to carry out ad hoc analysis, control, cost savings, 
better decisions, time savings, and making better use of data resources. While some of 
these measures of effectiveness are difficult to quantify and even harder to quantify in 
terms of a return on investment, I believe there will be measurable benefits associated 
with an inventory management DSS. The effectiveness could be measured by: 


¢ Inventory manager satisfaction with the workstation. 

¢ Number of line items managed per inventory manager. 

¢ Number of exception actions per inventory manager. 

¢ Inventory manager product quality. 

¢ Satisfaction of higher level managers and the inventory manager’s supervisors. 


¢ Changes which occur in the quantity and nature of information transferred 
between people in the organization. 


Satisfaction with the DSS perhaps cannot be quantified, but certainly it must be 
measured in some method. Over the long term, maybe employee turn-over may provide 


some indications of satisfaction with the system. 


4) 


Hl HARDWARE AND SOFTWARE SELECTION 


A. INTRODUCTION 

The selection of the correct hardware and software to implement the DSS was 
one of the most challenging areas of this thesis. While ASO had already planned a 
hardware architecture, as discussed below, it was chosen several years ago and didn’t 
contain all the elements needed to implement a DSS. During the hardware and software 
selection phase the benefits of certain hardware and software combinations were 
constantly compared against the planned architecture. The decision to select alternative 
hardware and/or software which was different from that in the planned architecture 
had to show that the alternative provided sufficient benefits to make a departure from 
the plan worthwhile. Additionally, the desire of the Department of Defense to have 
full and open competition made the selection of a proprietary (unique to a certain 
manufacturer's) hardware and operating system solution inadvisable. If a computer 
system can only be provided by a single vendor, then a competitive procurement 
between several vendors is not possible. Therefore, the software selected to imple- 
ment the DSS must be exportable to as wide a range of hardware and operating 
systems as possible. 
B. PLANNED ASO HARDWARE ARCHITECTURE 

To give the inventory manager a more efficient method for reviewing and using 
the data and reports from the UICP, the "resolicitation" effort was started by the 
Naval Supply Systems Command. The resolicitation effort provided state of the art 
computer hardware to replace the obsolete computers used to run the UICP system. 


The transition phase of resolicitation involved relocating the main database onto state 
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of the art hardware and improving data management with a 4th generation database 
management system (DBMS). This phase is nearing completion. The next step is the 
business support phase. The main goals are to: 


¢ Introduce new technology (hardware and software). 
¢ Support non-UICP processes. 
¢ Promote end-user development. 


¢« Automate and facilitate manual processing. 


The software technology to support this effort is shown in Figure 6: 
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Figure 6 Software Technology for the Business Support Phase 


The data strategy to support this effort is shown in Figure 7: 
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Figure 7 Data Strategy for the Business Support Phase 
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The hardware technology for the host and distributed departmental levels is IBM 
370 series computers (IBM 9370, IBM 3090, IBM 4381, IBM 3033) or equivalent. 
At the inventory manager level, the current plan calls for installing IBM Personal 
Computers (PC). A PC would be installed at each inventory manager’s desk. These PCs 
would be linked via an IBM token-ring connected to a PC acting as a file server. The 
token-ring also would be connected to a IBM 9370 minicomputer and further linked to 
an IBM 3090 mainframe computer. This linkage would allow the PC to access the 
information on the larger machines. Inventory data and management information 
would be distributed to the 9370 at the departmental level and further divided for each 
work group and placed on the local server. When the inventory manager (IM) has a 
need for a specific item of data, he would select the appropriate program to retrieve 
this data. The local PC will send a request to the server to provide the program (the 
executable code) and it would be transferred to the inventory manager’s PC and 
executed. Next the PC can request the server to provide data from a file resident on 
the servers hard disk. The data is is provided by the server and used by the PC to 
satisfy the requirement. The inventory manager’s PC would treat the server as an 
extension of itself. 

C. HARDWARE 
The characteristics used as a criteria for selecting the hardware and operating 


System were those characteristics that would best support the development of a DSS. 


The most important characteristic of the hardware is that it should require minimum 


! Charts and Strategy plan from presentation made by Ms Sandra Graves, ASO, Code 
PL - RB, November 1987 to the ICP Strategic Planning Group. 
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knowledge of computer operating and network systems from the user. Another 
characteristic is that the hardware should provide reasonable response times for data 
base applications. The selected computer should take advantage of mature technology, 
that is in general use. The capacity of the mass storage system, should be able to 
support several months of operation and should be easily expandable. The operating 
system should be multi-tasking so the inventory manager does not have to wait for 
printing and mail operations to be completed before continuing to use the system. 
Access to the SNA network and the IBM 3090 are vital. The inventory manager 
should have 3278 terminal emulation available on the IM Workstation, so that 
software on the IBM 3090 can be accessed. The ability to transfer files between the 
IBM 3090 (MVS/TSO) and the IM Workstation file server is also required. Data 
transferred from the mainframe to the local computer will be used with the DSS, and 


DSS program outputs will be sent to the IBM 3090 for transaction processing. A 
final requirement is the ability to provide remote access for Inventory managers to 


their local files and data bases. It is intended that the IM Workstation will provide the 
inventory manager with the following: 


¢ Interactive access to the main data base. 

¢ The ability to use the data with a decision support system. 
¢ Basic office automation. 

¢ Tracking of individual inventory manager actions. 

¢ Electronic mail. 


¢ A local database which supports the working group’s requirements. 


2 Using the DSS via a laptop computer connected by modem to the local system 
while attending a meeting away from ASO. 


oa) 


- An easy to understand/learn user interface. 


¢« A user interface which is easy to understand and learn. 
The following sections will discuss the technical and management issues involved 
with the PC LANs as presently planned for use by the inventory managers. The major 
issues which will be discussed are: 


¢ Security. 

¢ The limitations of MS-DOS. 

¢ Limitations of other software (on a local area network). 

¢ PCLAN server performance and disk drive input and output. 
¢ LAN stability. 

¢« Data base management. 

¢ PCLAN Management. 

¢ PCLAN inefficiencies. 


1. Security 

It is probably the most critical concern of any computerized system. MS-Net 
(Also known as the IBM PC LAN) has extremely limited logon and access security. 
Commands to start the server, including passwords, are kept in ordinary DOS batch 
files, which could be viewed by knowledgeable network users [REF. 15:p. 1]. 

In one installation there was no dial-up capability; only those computers that were 
hard wired into the network had access to the files. The manager of the PC LAN made 
this decision because the security inherent in all local-area network systems is, in his 
opinion, unsatisfactory [REF. 16:p. 41]. A local-area network of 10 personal 
computers, according to some computer system managers, 1s a minicomputer system. A 
network of 40 personal computers, connected to a 400 M-byte file server, should be 
considered a mainframe. Therefore, all the controls, check and balances, as well as 


security issues, used to govern a mainframe computer system should be applied to this 
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local-area network [REF. 17:p. 63]. Since IBM’s MS-NET does not provide this level 
of security the value of the LAN is affected. Further, the ability to download data 
onto floppy disks is a data security concern. 
2. MS-DOS Limitations 

MS-DOS is a single-user operating system, therefore it is difficult to make 
multi-user functions available [REF. 18:p. 24]. Under MS-DOS, interactions between 
the network software and applications software are extremely complex and, in many 
cases, only sketchily understood by programmers and service representatives [REF. 
19:p. 32]. Also if the software has to create or delete intermediate files during the 
running of the program, the user must have rights to create and delete these files and 
must be permitted to write to the appropriate drive. Some installation programs 
won't run because internal batch files are trying to copy files to drives which don’t 
exist in the network configuration. [REF. 19:p. 32]. MS-DOS limits the size of hard 
disk partitions to 32 megabytes (Mb). Since the amount of data that will have to be 
stored on the server for the inventory managers could exceed the 32Mb limit, several 
partitions, labeled A through Z, would have to be set up. Buta problem exists because 
some applications packages do not let users access hard disk partitions above the "F" 
level. Even if a software product is rich in both features and functionality, the 
software’s use on a PC LAN could be rejected due to this driver limitation [REF. 18:p. 
24]. The use of multiple drive partitions increases the difficulty for the end users, 
forcing them to be well versed in MS-DOS operations to effectively use the network. 


This level of expertise isn’t typically found in an inventory manager. 


zy, 


Unlike MS-DOS, a multi-tasking system allows more than one activity to occur 
at the same time. In the case of a local area network, true multi-user software would 
allow two individuals to share the same data at the same time. Should one of those 
individuals edit the information, the network, in conjunction with the applications 
software, would lock the record to ensure that the integrity of the data was main- 
tained. A LAN controls access to single user software a little differently. Although the 
LAN software may include record locking features, the single user software does not. 
Both users can still view the same record. However, should one individual decide to edit 
a record, the entire file locks making all of IT’S data unavailable to others until the 
Operation 1s completed [REF. 19:p. 24]. Unlike a single-user version, network versions 
(or ‘network-aware" software packages) offer file- fl record-locking features and 
allow users more flexibility in terms of peripheral sharing, document sharing, and 
document merging, according to some consultants [REF. 18:P.25]. But even network 
(or "network-aware" software packages) are constrained. For example a problem with 
the networking version of dBase III stems from the limitations of the record lock 
function of MS-DOS, under which dBase is written. The MS-DOS function not only 
locks a record in use, but also erects a barrier so uSers Cannot get at any data that 
pertains to that locked record. These steps make it difficult for users who have 
opened a database with a locked record, to make use of all the data within the database. 
In essence, what this does is block the part of the logical base below that record from 
other users [REF. 20:p. 35]. Record locking will slow down or deny the inventory 


managers access to the data on the server’s hard disk. 
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Another problem with MS-DOS involves the 640 Kilobytes (K bytes) of random 
access memory (RAM) that the operating systems is able to use. For example the 
single-user and network versions of dBase III Plus are the same product, except the 
network version has the "network-aware" features. While the dBase program is the 
same for both versions, to use dBase on a network, users must purchase the dBase III 
Plus LAN Pack in addition to dBase III Plus. While the memory requirement for dBase 
III Plus is normally 384K bytes of RAM for a standalone PC, a PC on a token-ring 
network using the LAN Pack, requires 512K bytes or more of RAM [REF. 18:p. 25]. 
For business purposes, the 640K bytes of RAM currently offered by MS-DOS is 
“woefully inadequate today and will certainly be worse tomorrow... The 640K bytes of 
RAM is such a limitation that some AT users have to reboot their systems between 
applications because of overcrowding from RAM-resident software." [REF. 21:p. 27]. 
Since the main application the inventory manager would probably be using on a PC LAN 
is a data base program, the limited memory on the PC will allow only a limited amount 
of data to be stored on the PC. This lack of data in RAM will necessitate frequent 
requests for data from the server thru the network and therefore reduce the response 
time of the program. 

The final MS-DOS limitation I will discuss is a function of IBM’s method of 
Supporting the file server. While some software vendors, like Novell, have a special 
operating system for the file server which optimizes IT’S input and output perfor- 
mance, IBM operates the file server under MS-DOS. Users who use IBM’s network 


package will see occasional disk errors and protection interrupts. This is caused by the 
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incompatibilities between the server's capabilities running single user DOS, and the 
multuple functions expected of the network software [REF. 22:p. C/17]. 

As an operating system for stand alone PCs, MS-DOS is adequate. But when a PC 
is part of a LAN, MS-DOS’s limitations become a liability. My observation of PCs 
installed on LANs at the Naval Postgraduate School have shown that while MS-DOS on 
a standalone PC is difficult to use, when the PC is in the LAN environment, IT’S 
limitations make it too difficult for anyone but the most expert user, to use effec- 
tively. Even shell programs that try to insulate the users from the operating system 
require the user to have an extensive knowledge of the disk structure and size 
limitations. 

3. Software Limitations (On Local Area Networks) 

Besides the limits imposed by MS-DOS, the network environment imposes 
additional constraints on users and software. Users seeking such (LAN) software face 
several confusing obstacles, including the following: 

¢ The variety of application software for networks is limited. 
* The software that is available fails to support all LANS. 


¢ The software may behave differently on different networks, so performance 
Vanlese (Riel aes some: 


Many popular PC applications written specifically for PCs will not work on 
networks. The problem is that most PC applications are written only for single-user 
systems. They do not have multi-user functions such as file and record locking. For 


example Ashton-Tate has introduced a multi-user version of dBase III. The dBase LAN 
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version is not a very great improvement over the single-user version because Ashton- 
Tate is trying to make it do things it was never meant to do. 

Software developers are presently converting minicomputer applications to 
create PC LAN versions of the minicomputer application. Some of these conversions of 
minicomputer software have been done quite successfully, because the minicomputer 
version of the application has had five to 10 years to mature and the inital design 
planned for a multiuser environment [REF. 23:p. 31]. 

With token-ring LANs, your choice is either NetWare from Novell Inc. or a LAN 
software program, with lesser overall performance, from one of Novell’s competitors. 
The lackluster performance of IBM’s PC LAN program, combined with its large 
memory requirements, may have been the principal causes of NetWare’s popularity 
[REF. 24:p. C/8]. Compared to IBM’s PC LAN, programs react differently under 
NetWare’s proprietary LAN operating system. With different LAN operating systems, 
all running under MS-DOS, software companies must write their programs for a 
generic network interface standard called Netbios. As a result, program performance is 
degraded rather than being optimized to a specific standard. 

As the emphasis for connectivity increases, the scope of PC LANs has changed. 
Originally, the PC LAN was intended to allow PC’s to share high cost printers, 
exchange files and share expensive disk drives. Now PC LANs are being integrated into 
a hierarchical network where they are required to handle complex data base applications 
and perform vertical data integration. IBM wants Personal Computer users to have a 


strong demand for upstream communications to minicomputer and mainframe 
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processing. You can’t do that with Netbios?, though, so IBM wants users to move to 
the LU6.24 network interface standard. However, dropping Netbios for LU6.2 will 
require some sacrifices, because there are few off-the-shelf applications written which 
will function under LU6.2. By contrast, there are a large number of applications 
written for Netbios [REF. 25:p. 18]. At this time, choosing the correct network 
Operating system and application program is very difficult. What the standard for 
network operating systems will be in the future is hard to predict. The problems of 
limited software selection, the lack of a standard for network operating systems and 
uneven software performance makes the task of installing a PC LAN a difficult task at 
best. 
4. PCLAN Server Performance & Disk Drive Inout/Output 

On PC LANs, the two main activities that are centralized are disk access and 
network management. The LAN industry has adopted the file server system of 
management in which workstation requests for data or programs are processed by a 
server machine. The server then accesses the disk. The file allocation table and the 
question of when and where data may be written are managed by a single server on the 
LAN [REF. 26:p. 39]. The key issue for a file server is the speed of IT’S disk I/O 
[input/output]. The disk delays that concern server designers generally fall into two 
Classes: access and transfer mes. Access time is the average delay between the time the 


disk system receives the request and when the information starts to flow to or from 


3 The communications protocol used to connect the PC to the network. 


41BM’s advanced communications protocol used by the systems network architec- 
ture (SNA) to link mainframe computers together. 
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the disk. IT’S made up principally of the time needed to move the head to the nght 
track (the seek time) and the time spent waiting for the correct sector to spin around 
to the head (the rotational latency). Transfer time 1s the actual interval it takes to 
move the information on or off the disk [REF. 27:p. C/23]. 

If you look at the bottlenecks in a machine that’s acting as a server, there are 
typically two: one is the network subsystem; and the other is the disk subsystem. Both 
of these subsystems have a fair amount of application code which is needed to control 
them, and by simply making the processor faster you can improve performance [REF. 
28:p. C/22]. One method that has been used to improve disk performance is to have 
multiple drives and spread files over physically separate drives. That way, you can have 
several [disk-transfer] tasks going on simultaneously [REF. 27:p. C/2}]. While this 
method will work, it is typical of the complex manipulations used on PC LANs. The 
impact is that the user faces a computer system which is increasingly difficult to use. 

In heavy-use environments, the next areas to examine for performance constraints 
are the network controller card and the disk controller card. You look at the amount 
of intelligence on the disk controller card and the network card. When heavy network 
loads are present, even a computer with a fast CPU can’t afford to wait for each card 
to perform its function and therefore will have to start working in parallel [REF. 28:p. 
C/28]. The server machine for multiple users requires greatly expanded capabilities over 
a Single-user machine. The server machine requires multiple concurrent communications, 


as well as heavy file usage and multi-tasking to work effectively. But the present 


>The control a card can exercise over its functions, independent of the central 
processing unit (CPU). 
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MS-DOS operating system can’t do multi-tasking which therefore imposes a limit on 
LAN performance. 

The servers and workstations are linked to the network by a network controller 
card. A controller card (one is installed in each workstation and server) is more critical 
to the operation of a file server than it is to a workstation, due to the large number 
of disk input/output activities on the server [REF. 29:p. C/17]. IBM’s token-ring 
network uses the same adapter card that is used in a workstation, this can lead to 
input/output performance problems. While the token-ring network is rated by IBM at 
4.0 Mbps, a recent test showed the transfer rate from an IBM 3090 mainframe in 
connection with a 3275 terminal controller to a PC to be only 0.2 Mbps [REF. 30:p. 
C/1}. Such a low transfer rate could affect the ability of the PC LAN to provide a 
conversational level of service.® 

The IBM token-ring network does not use a specially built server, but rather 
makes use of an IBM PC-AT class machine as a server. Even though software for most 
PC networks can run on ordinary workstations, several manufacturers and independent 
consultants recommend the use of a specially built, dedicated file server for a net- 
work’s control coordination and storage. These vendors claim the advantages of a 
dedicated file server range from increased ease of installation and greater security, to 
better packaging and faster performance [REF. 29:p. C/17]. The use of an IBM PC-AT 


class machine, running under MS-NET, would lead to a less than optimal level of system 


6 A conversational level of service is a speed such that the user does not notice an 
excess delay between the entering of a request and the response. 
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performance. It does not have the ability, when running MS-DOS, to perform the 
multi-tasking functions needed for successful server operations. 
5. LAN Stability 

LANs are less stable (prone to crashes and errors in data integrity) than 
stand-alone PCs. Using complex background software, the networking operating 
system fools the workstations into believing they have additional disk drives, printers, 
serial ports, etc. Even without "terminate and stay resident" (TSR) type programs, an 
occasional application that has not been written in strict compliance with MS-DOS will 
have difficulty working correctly on any PC network. When the PC is connected the 
network and and TSR’s are used, many more applications have problems. 

TSR’s illustrate the major difficulty in LAN management. Whenever multiple 
software packages and multiple types of hardware work together, integration becomes 
an important, but complex task. It is tempting to solve the problems as they occur. 
But this is only a stopgap measure. The best solution to the integration problem is 
early planning and a comprehensive management program [REF. 31:p C/53]. 

Even carefully designed security procedures will never protect the integrity of a 
network completely. The best security is a current archival record of the hard disk. 
How often the system is backed up and whether the entire system or only changed files 
are archeived will depend on the size of the databases and the volume and patterns of 
data additions [REF. 19:p. 32]. Considering the large number of local area networks 
which will be installed at ASO, not only will this involve each server but also any 
workstation with a hard disk. This will be a difficult task to actually perform and 


manage. If backups are not performed religiously, the network could be destabilized 
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through lost and corrupted data. The result will be that the validity of data will be 
questioned and trust in the system lost. 

A ring network connects each computer in a circular configuration. Under heavy 
loads transmission speeds are faster than those found in a eathernet (bus) LAN. One 
disadvantage to a ring network is that any disruption in the network, such as an 
equipment failure or the addition of a new workstation, can cause the entire network 
to shut down [REF. 19:p. 21]. Asa result the network is sensitive to cable damage. In 
the ASO environment, where a large number of the inventory managers do not have 
modular furniture, the chance of cable damage is very possible. The token-ring 
network cabling is very complex. IT’S installation is a major effort and requires a large 
number of cable runs. Inherent to this intricate system is a very high cost for 
procurement and installation. Moreover once such a network is installed it is very 
difficult to move. 

An additional area that can influence system stability is outside’ software. The 
availability of MS-DOS programs adds a new dilemma to the computer management 
problem. The low prices of PC software packages will tempt inventory managers, with 
a PC on their desk, to buy a program that will help them do their job (or balance their 
checkbook). So long as an application remains restricted to a local users desk, then 
software standardization isn’t a problem. But, when it becomes a company wide 
application you have to have centralized control over the software being used [REF. 
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7 Software not provided by the organization or included in the software configura- 
tion management system. 
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The most perplexing software is the terminate and stay resident (TSR) kind. 
Terminate and stay resident (TSR) programs such as Sidekick are mixed blessings for 
LAN managers. They provide convenience for users and tools for improved LAN 
management, but they also cause program crashes and general network instability. TRS 
problems fall into four general categories: insufficient memory, interrupt contention, 
command-key contention, and if several TSR’s and an application need to share the 
main 640K-byte block of memory, their may be insufficient space left for larger 
applications. The dangers of uncontrolled TSR’s are intolerable because resulting 
crashes could damage databases or corrupt directories. 

Since TSR’s cannot be banned, they have to be managed. However, TSR 
management can be a sensitive issue. Users may select a favorite TRS before the LAN 
is installed. When told to stop using it or to change to another product, the users can 
become rebellious [REF. 31:p. C/5]. And because of the PC’s independent nature, it 1s 
frequently difficult for MIS to control software use. 

Overall the PC LAN, as it exist today, is a very delicate structure. Ina 
production environment like ASO, where stability and up time are vital, the sensitivity 
of PC LANs to IT’S environment could have a serious impact on productivity. 
Additionally, excessive down time can have a negative impact on the user. If the 
inventory manager finds the computer system to be unreliable, or if IT’S more trouble 
to use than IT’S worth, he or she won’t use it. 

6. Data Base Management 
The main issue with a database placed on a PC LAN 1s the security of the data. 


This security involves both denying unauthorized access, and preventing unintentional 
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damage to the data base. In spite of carrying out conservative security procedures, 
data on any PC network is vulnerable, due to the lack of true multi-user software and 
to the large number of users accessing the databases [REF. 19:p. 34]. 

Another issue with data base management on a PC LAN is whether or not the 
level of data base work that will be done by the inventory managers will exceed the 
level of efficiency of the network. Sometimes it is desirable for activities to be 
centralized. Application processing, for example, usually involves manipulation of small 
amounts of data and is handled in the distributed workstations. Application process- 
ing, however, may not be efficient for data base management and large processing jobs. 
Some data base operations are more efficiently performed in a central processor. This 
is not an issue in smaller data base systems, but as the size of data bases and the 
number of workstations increases, so does the need for centralized processing [REF. 
a) seo db 

PC LANs are presently not mature enough to handle large production size data 
bases. "You can have a shared data base on a LAN server, but PC LAN-based DBMS’s, 
while they have made great strides, don’t yet equal minicomputer based DBMS’s," 
[REF. 34]. The PC LAN-based DBMS’s suffer from the problems of record locking and 
bottlenecking at the file server. In addition the slow speed of token-ring network data 
transfers from the server or minicomputer will cause the DBMS to have less then 
acceptable performance. Most data base uses will require a conversational interaction (5 
seconds or less) or an inquiry/response interaction (20 seconds or less) [REF. 35:p. 4]. 
My experience with various token-ring LANs at the Naval Postgraduate schools is that 


these types of response goals will be unattainable. 
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7. Installation 
The installation of PC LANs is a very complex task. Each installation is 
almost a custom-tailored job [REF. 36:p. C/8]. "‘In practice, though, LANs are quite 
tricky little devils," warns Ian Ebel, president of Microserv Technologies Corp., a LAN 
consulting firm. "‘If you don’t know what you’re doing, they can cause you a lot of 
headaches and grief.’" [REF. 23:p. 31]. 

John Schmidt, systems analyst at American Hardware insurance Group in 
Minneapolis, installed three IBM token-ring LAN’s a year ago and says that the big 
Surprise was how much time was consumed. "The network hardware wasn’t difficult, 
but software gave us problems,” Schmidt says. "At first we used IBM’s LAN 
Operating system but found it difficult to fine-tune to give us maximum performance. 
We opted for Novell, Inc’s Netware operating system instead." [REF. 37:p. 27]. 

One of the first things people will want to do with their LAN is to share a 
high-speed laser printer. Just about every network administrator has a horror story 
to tell about his or her printer. The stories range from simple connection difficulties, 
to getting control over the print-job stream and fonts. Just getting the printer 
connected can sometimes be a chore [REF. 38:p. C/9]. For example, one woman’s 
station had a laser printer attached to it. To allow other people on the network to 
have access to the laser printer, she had to be on the network constantly because so 
many people wanted to spool to the laser printer. With no administrator present, 
many users were incorrectly spooling to one of her disk drives. She was constantly 
losing files or getting her PC locked up and finally decided not to boot up on the 


network [REF. 39:p. 41]. 
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8. PC LAN Management 

Even after a PC LAN is installed, it requires a great deal of attention. Unlike 
the stand-alone PC, a PC LAN is not self sufficient due to IT’S dependence on the 
server for application programs and data storage. While an individual might have 
trouble using the PC on his/her desk, (constantly jamming it up through operator 
error) when you link that person’s PC to the network you’re going to multiply their 
mistakes many times over. In fact the more competent users may refuse to be on the 
PC LAN because the mistakes of others slow them down. Patience is the byword when 
it comes to local-area networks. When the LAN goes down, lots of people want their 
spreadsheet and databases brought back up. The stakes are higher when data is ona 
LAN because the information on the server is inaccessible [REF. 40:p. C/8]. "People 
expect an installation to be an immediate solution. In all honesty, IT’S the beginning 
of the solution, not really the solution itself." [REF. 39:p. 41]. 

Initial network installation is hard enough, but networking is now generally so 
complex that clients need to be constantly updated and supplied with new network 
resources to keep them current and competitive. Once you emerge from the initial 
network installation, you can run right into trouble. Suddenly you have data center 
designs, structural designs, gateways and communications with remote systems. These 
are network design elements that users rarely foresee [REF. 37:p. 27]. 

The final issue concerning the management of PC LANs concerns network 
administrators. At ASO, the network administrator will probably be an inventory 
manager who will have this job as a collateral duty. It is very important to have well 


trained network administrators. Unlike mainframe and minicomputers, the administra- 
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tion of a PC LAN is an hour to hour operation. The same flexibility that made the PC 
popular is also it achilles heel. It is too easy under the present PC LAN operating 
systems for the user to corrupt data in the system or cause the network to crash. 
The network administrator must be on hand as much as possible to maintain the 
network. If you don’t have competent network administrators, the project is going to 
fail (REF. 39:p. 41]. 

An additional management issue is that those LAN managers who can successfully 
avoid the pitfalls and create productive, stable LANs are in high demand. The job 
market for PC LAN managers is destined to grow rapidly and the talent pool is quite 
small. With decisions becoming ever more difficult, corporations need LAN experts 
with a successful track record. Promotions and acute offers from headhunters will 
gradually become the LAN manager’s standard fare [REF. 39:p. 41]. This could have a 
detrimental effect on the effectiveness of the PC LAN, as successful LAN managers 
leave inventory management for higher paying jobs just managing PC LANs. Taking all 
the various factors into account, the installation of PC LANs is still black magic. The 
PC LAN has evolved a great deal since IT’S inception, but it has yet to reached 
maturity. The installation and management of PC LANs is still filled with many pitfalls 
and headaches. Choosing a PC LAN for a production environment is still very 
questionable decision. 

Based upon the above discussion of the technical and management problems 
associated with personal computers on a token ring network, there was sufficient 
justification to to depart from ASO’s planned hardware architecture. Management of 


the PC LAN would be so difficult that the effective implementation of a DSS would 
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not be possible. It was decided that the hardware best suited to provide inventory 
manager’s with a DSS and individual workstations would be a minicomputer based 
system. Minicomputers have excellent security, their operating systems are not limited 
by RAM or partition disk size. The software for minicomputers is designed to operate 
in a distributed, multi-user environment, the files are managed so that access for 
authorized users is unlimited and updates are logically controlled. The performance of 
the minicomputer, especially when configured with diskless client workstations, is 
Superior to any PC LAN configuration. When the issues of system stability and 
management are also considered, a minicomputer system is the only answer. Figure 8 is 
a part of a connectivity decision chart excerpted from PC Magazine [REF 65]. PC 
Magazine is mainly concerned with PCs on various LANs, but their decision chart shows 
that the best decision when you do not have a large investment in DOS based PCs and 
do have a heavy data load is to consider using minicomputers. 

The choice of which minicomputer to use was narrowed by the following 


constants: 


¢ It should use a non-proprietary operating system. 
¢ It has a high resolution, 19 inch monochrome display. 


¢ It would work with the selected DSS software. 
Hardware to fulfill the specified parameters was available from several manufacturers: 


¢ International Business Machines (IBM) 
¢ Digital Equipment Corporation (DEC) 
¢ Sun Micro Systems (SUN) 


Each of these manufacturer’s computers uses a version of the UNIX operating system. 


While each version is slightly different, they all support the DSS software. Each of 
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Figure 8 PC Magazine Connectivity Decision Guide 


the computers supports workstations with a high resolution, 19 inch monochrome 


display. All the workstations are linked to the server via an ethernet using the 
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Network Files Systems (NFS) protocol. NFS was developed by SUN, but licensed for 
a minimal fee to IBM and DEC. It has become the industry standard for ethernet 
connectivity. 

IBM offers the RT PC, with different versions acting as the server and worksta- 
tion. IBM’s version of UNIX is called AIX . DEC offers the VAX 3600 as the server 
and micro-WAX 2000 as the workstation. DEC’s version of UNIX is called ULTRIX. 
SUN offers the SUN 3/280 as the server and the SUN 3/50 or 3/60 as the worksta- 
tion. SUN’s version of UNIX is called "SUN OS". 

Functionally each machine offers similar performance, capabilities and capacities. 
The IBM machine was not selected for the DSS development during this thesis because 
version 2.0 of ALIS (The selected DSS software) was not yet available for the RT PC 
when the hardware was procured. The reason for selecting the SUN system over the 
DEC was that the Naval Postgraduate School already had a large installed base of SUN 
systems and could provide technical and repair services for the workstation that would 
be procured for DSS development. For a large scale installation, any of the systems 
would be fully functional. The ALIS software is such that it can be developed on one 
system and transported to a different system without conversion. The exportabilty 
provided by using an open operating system supports full and open competition and 
keeps the DoD from being tied into a single vendor. 

The following hardware was procured for DSS development: 


° SUN 3/50 workstation with high resolution, 19 inch monochrome display, 4mb 
RAM and ethernet port. 
* 141 mb fixed disk with 60 mb 1/4" streaming tape device. 


* QMS-PS 800 Postscript laser printer. 
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¢ Zenith data systems 2400 baud modem. 

This hardware fully supported the DSS software development. While the UNIX 
Operating system has a reputation for not being user friendly, the new graphical user 
interface being provided by SUN called Open Look has removed much of the unfriendli- 
ness. Open Look is a version of X-Windows. X-Windows was developed by the 
Massachusetts Institute of Technology (MIT) under a grant from IBM and has become 
an industry standard. DEC and IBM both offer X-Windows. 
D. SOFTWARE 

As discussed in the Chapter 2, the DSS is built using a shell. In selecting the shell, I 
wanted a highly integrated Office Automation package, i.e. one that provides word 
processing, spreadsheet, database management and a macro programming language. The 
software packages identified as possible candidates were: 


¢ SmartWare, by Informix Software, Inc. 

¢ Q-Office+, by Quadraton System, Inc. 

¢ ALIS, by Applix, Inc. 

¢ Officepower, by Computer Consoles, Inc. 

¢ R Office+, by R Systems, Inc 

¢ Uniplex Advanced Office System, by Uniplex Business Software. 


To become a possible candidate, the software had to run on a Unix based 
computer. While various integrated packages like IBM’s "AS/400 office" and DEC’s 
“All-in-1" were possible candidates, they are based on proprietary operating systems. 
Each of the possible software packages listed above can operate on over twenty 


different UNIX based systems. I reviewed each of packages for the following features: 
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¢ Access to the UICP database from within the office automation software. 


¢« Ability to import a subset of the UICP data base and use the data within the 
office automation software to form a decision support system. 


¢ A user interface that is easy to understand and learn which complies with the 
Xerox PARC / Open View interface standard. 


¢ Electronic mail which can be transmitted amongst both the inventory managers 
and other groups and organizations. 


¢ Highly integrated office automation system with a consistent user interface 
containing word processing, spreadsheet, data base and a macro programming 
system to develop the DSS with. 

After studying information, manufacturers and computer publications, it appeared 
that SmartWare and ALIS were the most promising. The other packages either did not 
contain a spreadsheet or electronic mail or both. Additionally, many of the packages 
did not allow for a total integration of data between the modules. The reason ALIS 
was selected over SmartWare was that it provided two key features that SmartWare 
did not. ALIS provides a graphical user interface that complies with the Xerox standard 


and an extensive programming language that allowed control of both the integrated 


packages and the UNIX operating system. The final step taken before selecting ALIS, 
was to contact ALIS users within the DoD’. ALIS was highly recommended by Mr. 


Dana Brewer of the Office of the Secretary of Defense. Appendix B contains an 
in-depth description of ALIS and its various features and configurations. 
This thesis document was created using ALIS. The thesis is a compound 


document containing spreadsheet and graphic editor insets. The format of the 


8 The prime point of contact was the Office of the Secretary of Defense which has a 
300 user system. Additionally the US Air Force uses ALIS for IT’S Local Office 
Network System (LONS). LONS is presently installed at several US Air Force bases 
in the Eastern United States. 
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document was controlled by a style guide and printed on a postscript printer. From 
receipt of the ALIS software, I was productively using it within two days and felt 
completely competent with it within a week. It has performed flawlessly and has 


provided all the capabilities advertised by Applix, Inc. 


47 


IV. UICP DATA ELEMENT SELECTION 


A. INTRODUCTION 

The first task in developing the IM Workstation’s DSS was to identify the data 
elements most important to the inventory manager’s work and to find out how the 
data elements are being used. The optimal way to identify the data elements and their 
uses would have been to perform a structured analysis. The structured analysis would 
then result in a physical data flow diagram showing the present business methodology. 
This could then be restructured into a logical data flow diagram which would take the 
present system and transform it into a streamlined view of the business which could be 
programed. In a production environment, such as ASO, completely stopping old (and 
established) ways of working and changing to a completely new system would be 
unacceptable. I decided to follow a multi-staged process: 


¢ Determine the UICP applications and data elements the inventory managers 
consider necessary to perform their mission. 


¢ Document the managers actual use of the selected information. 


¢ Determine how to import the selected information into the Decision Support 
System (DSS). 


¢ Construct a DSS based upon the managers requirements. 
This chapter will discuss the first two steps in this process. The subsequent two 
chapters will discuss data extraction and the building of the DSS modules. 
B. APPLICATION AND DATA ELEMENT DETERMINATION 
The most critical element of my thesis was the identification of the UICP applica- 


tions and data elements that the inventory managers use to support their daily work 
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effort. The outstanding cooperation of the personnel at ASO made this identification 
work much easier than J first anticipated. 

To support the determination of the data elements and their uses, the director of 
Weapons Management identified one of his most competent branches, WMB5I, to 
work with this project. The branch head selected his seven most competent and 
experienced inventory managers. The managers were asked to identify the AQ2 data 


products they used on a regular basis. 


If they need the information on a regular basis! to answer a phone query, to 


process a requisition or to review a recommended buy they should identify the AQ2 
product they would use. From the choice of 39 AQ2 products, the managers selected 
the ones that they would use on a regular basis. While each manager could have 


selected all 39 of the products, they only picked between 6 and 12 products. The mean 
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Figure 9 AQ2 Products Selected by Each Inventory Manager 


lA regular basis was considered to be at least once a week. 
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number of AQ2 products chosen was 8.5. Figure 9 shows the AQ2 products selected 
by each manager. Figure 10 provides a graphical display of the selection distribution. 
As Figure 10 shows, the managers actually use only a small number of the data 
products available. Secondly, the managers were in agreement as to which products 
were the most important. The managers selected six high usage programs that they 


felt were vital to the performance of their jobs. These key products were named, AS, 
BK, CD, CL, NA, and RS2. They actually represent the heart of the inventory 


management process. 
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Figure 10 AQ2 Products Selected by 7 ASO Inventory Managers 





- Appendix A contains a definition of each A02 product. 
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The information provided by these AQ2 products forms the basis of the 
inventory manager’s ability to answer the following questions on a daily basis: 


¢ What stock is available for issue? 
¢ What stock is on order, and when is delivery expected? 
¢ What requisitions are backordered? 


¢ What is the status of a specific requisition? 

During the interviews, the inventory managers stated that they usually have to 
use two or more of the AQ2 products to answer any of the above questions. The 
inventory managers said that the process of retrieving the information was very time 
consuming. Furthermore, they said that the only way to work with the data was to 
print each screen from the current IBM 3270 terminals individually and place the 
printouts side by side on their desks. This allows them to correlate the data from one 
AOQ2 program with that of another, to obtain the information they need. 

The next step was to identify those data elements in each AQ2 product which 
were being used and those which were extraneous. It turned out that only a very few 
of the data elements from each report were used. Inventory managers stated that many 
of the reports could be reduced in sized and data from various reports combined to 
better fit the needs of the managers. 

Sprague and Carlson’s text, Building Effective Decision Support Systems, states 
that "Almost every study of decision making and DSS indicates that decision making 
involves reducing / abstracting from large amounts of data. Data reduction involves 
sub-setting, combination, and aggregation of records and fields in a database." [Ref. 
41:p 99] Therefore, if an effective DSS was to be constructed, an abstracting of data 


from the UICP database and AOQ2 products was required. 
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The managers were asked to select from each AQ2 product the data elements 
(DENs) they used. They were also requested to identify any additional data elements 
that are not part of a selected AOQ2 product, but are required to perform their 
analysis. The managers selected 110 data elements. Of these, 50 were selected by at 
least four of the seven managers. What this implies is that the managers only use or 
need 110 of the 3,992 data elements available in UICP. Appendix C contains a listing of 
the 110 data elements selected and the AO2 products which use each data element. This 
represents 2.7% of the data elements in the UICP database. While this indicates that a 
very low percentage of the database is being used by the inventory managers, many of 
the unselected data elements are required for other functions. These data elements are 
used to compute supporting information, provide purchase requirements and maintain 
provisioning technical data. Additionally, while the prime mission of the Aviation 
Supply Office is inventory management, many of the supporting management codes, 
such as procurement, provisioning, and component repair management make use of 
these other data elements. 


In addition to the on-line products, information is provided to the inventory 
managers on a cyclic? basis in the form of several printed reports. The inventory 


managers expressed a desire to have this information on line as part of the DSS. The 
reports they indicated they wanted data from were the Consolidated Stock Status 


Report (CSSR) and the Supply Demand Review (SDR) report. 


3 The interval could be quarterly, or as the product of a periodic review inventory 
model. 
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V. DATA EXTRACTION 


A. INTRODUCTION 

The UICP database, resident on the IBM 3090-400 mainframe, is a complex series 
of on-line data files and off-line tape files. To modify or replace the present AQ2 
products would involve an extensive amount of reprogramming and the associated 
database integrity checks and testing. This process would take several years to do 
properly. The best approach is to leave the AQ2 products unchanged and extract from 
the UICP database only that information required by the IM Workstation to perform 
day to day functions. By limiting the number of active interfaces with the UICP 
database, many of the interface problems are eliminated. According to David Alexander 
"a DSS does not replace or compete with other systems; instead, it extracts from 
other systems the information that is essential to the process of decision-making." 
[Ref. 7:p 116] This chapter will discuss the methodology used to extract from the 
UICP database data elements identified by the inventory managers and discussed in the 
previous chapter. The COBAL programs to extract the data elements from UICP were 
written by Paul Rosen of ASO’s planning division. He was assisted by Bill Leanza and 
Elmer Nagrampa, management interns from the Naval Supply Systems Command 
(NAVSUP). Mr. Rosen and the NAVSUP interns dealt with the issue of extracting the 
data elements, while this thesis work developed the minicomputer software to use the 
data elements once they were downloaded to the minicomputer. 
B. DATA ELEMENT EXTRACTION 

The majority of the data elements identified by the inventory managers were 


located in the UICP database files accessed by the UICP Supply Demand Review model 
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(B10). This model reviews stock levels and computes recommended quantities for 
procurement. The printed output of this model contains not only the recommended 
procurement quantities but also a large amount of management data. The management 
data included in the printed output contains many of the required data elements. 
Appendix D contains the COBAL program called NSNSB, that extracts the data from 
B10JX1 record types (D, F, H, J, L, N, P, R, T, V, and Z) in the UICP database and 
creates thirteen data files which can be moved to the IM Workstation. 

The NSNSB program was difficult to write because the structure of the B1OJX1 
record was not known. The documentation for the record’s structure was incomplete 
and out-dated. The key to performing an extract was finding the exact file location of 
each data element. To build a complete map of the record’s structure, an extensive 
amount of research and subsequent effort was required. The various information then 
had to be correlated to build the map. Once the location of the data elements within 
the record were known, the programming effort continued without difficulty. 

The NSNSB program first opens the B10JX1 record and performs a subroutine 


which extracts information for only those stock numbers managed by WMBS1 branch. 
This extract is done using logistic routing codes (LRC).!_ NSNS5B then goes to the 


specific file location for each data element and reads that data element into working 
storage. The information is stored and referenced by it DEN number. Upon reading all 
the required data elements for each stock number, the information is written to the 


appropriate file for later transfer to the minicomputer. This routine continues until 


| The logistic routing code identifies the specific inventory manager who manages a 
particular item. 
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information for each stock number has been extracted. Then, NSNSB closes BIOJX1 
and each of the created data files. The information in the data files is then manipulated 
to ensure each record is properly format (e.g.; currency fields, quantity fields). The 
data file Outfile4 called contains the ready and not-ready for issue stock status 
information. The information is reorganized so that it presents, for each reporting 
activity, ‘ready for issue" (RFI), then “not-ready for issue" (NRFI) and finally “all 
purpose codes" (pur-all) stock status information ina single display line. Upon 
completion of this routine, NSNSB 1s finished and the data files are ready to be down 
loaded. 
C. DATA FILE STRUCTURE 

The thirteen data files which result from NSNSB are organized to correspond to 
the various sections of the NSN Snapshot. Ofilel, Ofile2 and Ofile3 contain technical 
reference data. Ofile4 contains the current stock status information. OfileS contains 
material due-in from contacts information. Ofile6 contains planned program require- 
ments data. Ofile7 contains alternate national item identification numbers (NIINs) 
data. Ofile8 contains application data. Ofile9 contains information on backordered 
requisitions. Ofile10 contains part number reference data. Ofilel1 and Ofile12 contain 
reference material if the item is managed by a non-Navy activity. Ofile13 is a support- 
ing file used to construct Ofile4. Appendix E contains a sample listing of each file and 
Table 1 summarizes them. The exact placement of each data element within the file can 
be read from the program listing of NSNSB in Appendix D. 

The reference key to the data files is that characters 1 to 9 of each line represent 


the NIIN. This allows the data from the different data files to be correlated. Data 
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Table 1 FILES CREATED BY PROGRAM NSN5B 
Type 


File Description 

Ofilel Technical Reference Data Single Field 
Ofile2 Technical Reference Data Single Field 
Ofile3 Technical Reference Data Single Field 
Ofiled Current Stock Status Repeating Field 
Ofiles Due-in From Contracts Repeating Field 
ofileé Planned Program Requirements Repeating Field 
Ofile? Alternate NIIN Data Repeating Field 
Ofiles Application Data Repeating Field 


ofiled Backordered Requisitions Data Repeating Field 
Ofilel0 Part Number Reference Data Repeating Field 


Ofilell §Non-Navy Management Data Repeating Field 
Ofile12 WNon-Navy Management Data Repeating Field 
Ofilel3 $$ Temporary, Builds Ofile4 Repeating Field 


files like Ofile4 have multiple lines of data for the same NIIN. The program reading 
the data file can tell when the data for that NIIN has been completely read when the 
first nine characters of the next line do not match the NIIN being worked with. This 
key reference system allowed variable length data to be handled in the same simple 


method used for fixed length data files. 


D. REQUISITION DATA 

The data for requisition processing is pulled straight from the Document Status 
File (DSF). Due to the fixed field features of requisitions, they are relatively easy to 
work with. A subroutine program pulls those requisitions from the file that match the 
logistic routing codes for the item managers in WMBS51. The resulting requisitions are 
passed as one data file to the minicomputer. The files are then read and used by the 
requisition process module. 
E. CYCLIC HISTORICAL DATA 

Due to the same difficulties experienced when NSN5B was written, poor or 
nonexistent documentation has caused the extracting of historical data from the cyclic 
data sheets to be a very difficult task. Mr. Rosen and the NAVSUP interns are 
presently working to solve this problem. It is expected that by early January 1989, 


they will have an appropriate extraction program ready. 
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VI. DSS CONSTRUCTION 


A. INTRODUCTION 

This chapter will discuss the how the data elements extracted from the UICP 
database and how the office automation and programming features of ALIS were used 
to create the DSS. The following areas will be discussed: 


¢ Information usage 

¢ NSN Snapshot construction 

¢ Inventory management menu construction. 
¢ NSN Notebook construction. 

¢ Requisition processing construction. 

¢ Cyclic view construction. 

¢ Supply demand review processing. 


¢ Style guides and office automation. 

The discussion of each area will cover the major functions of each module in the DSS. 
The computer programs for the completed modules are provided in the appendices. Due 
to time constraints, the requisition processing, cyclic view, and supply demand review 
programs were not completed when this thesis was published. 
B. INFORMATION USAGE 

Following the determination of which AQ2 products, data elements and data from 
printed reports were most important to the inventory managers, an understanding of 
how to organize this information was needed. Most computer implementations take the 
pre-computer, manual paper system and copy the present methods and reproduce it 
with a computer program. Rather than take this approach, the following groups of 


functions were examined: 
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« Answering customers’ questions when they call for the status of a requisition or 
the quantities of stock on hand. 


¢ Using historical data to analyze future requirements. 

¢ Processing requisitions for stock issue. 

¢ Processing supply demand review outputs from the UICP computer model B10. 
¢ Maintaining miscellaneous information about each stock number. 


¢ Answering correspondence, preparing buy packages and general office automation 

The NSN Snapshot was designed by ASO personnel to allow them to answer 
customer queries rapidly, assist the processing of requisitions and to provide a uniform 
method of looking at stock status. The NSN Snapshot is intended to deal with 
current information. To supplement the NSN Snapshot and provide the inventory 
manager with information about historical patterns, a module called the Cyclic view is 
being designed. The Cyclic view presents historical data taken from the Consolidated 
Stock Status Report. The combination of NSN Snapshot and Cyclic view information 
will provide a basis for the manager to analyze the recommended buys from the Supply 
Demand Review process. With the extracted data elements resident in the DSS, buy 
computations can be done by the item managers without having to input the data from 
printed reports. 


To allow information presently kept by the inventory managers on ASO 730 
cards! to be maintained in a uniform manner, the NSN Notebook program was written. 


The NSN Notebook is intended to provide a consistent repository for non-UICP 


1 Paper record cards maintained by each inventory manager, for each stock number. 
They contain miscellaneous information not kept in the UICP database (ie points of 
contract). 
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database information that is required by the inventory managers. Examples of the 
information to be kept in the NSN Notebook for each stock number are: 


¢ Pending stock number change information. 
¢ Contract expedite information. 


¢ Points of contact. 

Not only does the NSN Notebook provide a consistent method for maintaining this 
type of information, but it also allows all members of the branch to have access to the 
information. To facilitate the uniform processing of requisitions, the requisition 
processing module was built. An additional area to be implemented deals with the 
processing Supply Demand Reviews and their associated buy computations. The 
following sections will discuss the designing and programming of each of these modules 
and how they are used to implement the DSS. 
C. NSN SNAPSHOT CONSTRUCTION 

The NSN Snapshot was designed by ASO inventory managers to give them the 
ability to rapidly answer customer queries and provide concise management information. 
The NSN Snapshot has its information displayed in seven areas or views. Figure 11 
shows a sample NSN Snapshot. The top view contains the provisioning and technical 
data pertaining to each stock number. It contains such information as the name of the 
item, standard price, replacement price, part number reference and wear out rate. The 
purpose of the first view is to give the inventory manager, in one area, the item’s key 
management information. This key information includes the value of the item, how it is 
managed by the UICP database, and whether it is a repairable or consumable. View 2 
provides the current observations of quarterly demand, and other related information. 


This information gives the inventory manager an insight into the amount of demand 
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the part is presently experiencing, how many parts are required but cannot be presently 
provided and how many parts are due in from the manufacturers. View 3 provides 
application data. Application data tells the inventory manager what equipment uses this 
specific part and in what quantities. 

View 4 provides a listing of parts by geographical location and their associated 
condition (ready for issue, not ready for issue but in repair, or not ready for issue and 
awaiting repair). This view is referenced on the NSN Snapshot as PTAS Data. The 


name PTAS comes from the command for the original retrieval program that was 
accessed from a tty device*. The inventory managers wanted the data arranged across 


one line to make it easy to work with. The present AO2 program design requires a 
separate AO2 product to provide the data associated with each column of the PTAS 


data. The way the PTAS data is presented in the snapshot makes it much easier to 


work with than the dissimilar paper outputs from AQ2. View 5 provides information 
on material which is due in from manufacturers, including the planned delivery date to 
the stock point. View 6 informs the inventory manager of any requisition for the item 
that have been placed in a backordered status awaiting material delivery. The last view, 
view 7, provides the inventory manager with information on planned program 
requirements. This allows him to easily see what material will be requested in future 


months, so he can ensure that it is available when required. 


2 Tf the manager wanted to know the status of ready for issue parts they would 
input "PTAS!RFI!ALL!001231234" on the tty and the system would return a 
printout that was very similar to Figure 1. 
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As shown by Figure 11, the NSN Snapshot is a long document. To allow the 
inventory manager to view the information, the ALIS environment presents the 
document in a window. The window can be scrolled to reveal specific areas of the NSN 
Snapshot or exploded to show it as one window making use of the complete 19 inch 
display area. Overall the NSN Snapshot provides clear and concise management 
information for each stock number. It provides the inventory managers with the data 
they need to properly manage an item and support customer requests. 

The NSN Snapshot is the key element of the IM Workstation for the inventory 
managers DSS. While on the surface the NSN Snapshot might appear as only a clean 
way to present data on the screen, it actually represents much more. By having the 
information presented in a well organized manner, it actually influences how the 
inventory managers perform their work. In many cases, if the inventory managers 
needs today the information which will be contained in the NSN Snapshot he would 
have to perform extracts from six AQ2 products. Not only is this process time 
consuming and tedious, but there is no guarantee that the inventory manager will make 
the effort to obtain all six AO2 products. The inventory manager might use old 
printouts or try to recall the information from his or her own memory. This could 
lead to an improper decision being made because the it was based on partial informa- 
tion. The present failing of the UICP database is not the quality of the database or its 
models, but rather the difficulty of extracting and working with the data. Therefore, 
a main feature of the NSN Snapshot is that it will make the UICP database accessible. 
The value of the information from UICP will be further aided by organizing the data in 


a logical manner which will expedite the decision making process. 
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View 1 


NSN Snapshot 


00-051-9587 


Nov 16, 1988 


NSN: ?RE 1615-00-051-958? SMIC: MH 
Name: SWASH PLATE,ASSY RO 
DRIPR: $S_S$z ERG SMT Wear Out: 0.04 CNS: 
RIC: GB48RDX |p op 18 Survival: 0.99 Shelf: 0 
Source: PA IMC: E Entry O70; 68064 FGC: KPGA 
Recovery: D Hold DTD: 0 PAC: KE 
TSG S3PC 
SieaeP rice: $39,580.00 Net Price: byl Chableys (0) (9, 
Fpl Price: $41,776.00 Unit Issue: EA 
MGR MULTI USER 
PNC FSCM Part # MOE MGR_MOE MOE 
x RTOOO REV DCC 48,49 REWK AFT SRM 
x TOO00 BRK OUT GP INT 
x Z0000 GB48RD 
x TOO03 NOT INTERCHANGABLE AFTER AFC 342 
x TO002 OBSOLETE AFTER INCCRP AFC 342 
x TOOO1] H46 DCN 522-03-010 
View 2 
Current Qtr Maint DMD Obs: 4 
Current Otr OVHL DMD Obs: 0 
Est Qtriy DMD During PLT: Onl 
Total Back Orders: Al 
Total Awarded Due_ins: 26 
Total UnAwardea Due_ins: calc 
View 3 Application Data 
ACT Application UPA PCT MC ACT Adpliecation UPA PCT MC 
B1l891 1 100 OG B18&92 1 100 OG 
B18&92 1 100 OG 3CH46AX i 98 OG 
3CH46AX 1 ge OG 3CH46DM 1 98 OG 
3CH46DM a 98 OG SCH46DX al 98 OG 
3CH46DX alt 98 OG 3CH46EX 1 99 OG 
3CH46EX 1 99 OG 3CH46FX al 98 OG 
3UH46AX i 98 OG S3UH46DéM a 98 OG 
3UH46DM il 98 OG SUH46DX al 98 OG 
3UH46DX a 98 OG 7 LEVREP 0 100 GG 
7LEVREP 0 100 GG 
e 
View 4 PTAS Data 
Rees i NON-RFI | PUR ALL 
Site On Hand Due-In Due-Out PPRsS SD PC CC On Hand Due-In Due-Out | PC On Hand Due-In Due-Out PPRs 
NAZ t ' Ww 0 0 C C 
NDZ 1 2 0 6 [ A E 3 0 0 i Vv 3 0 0 4 
NDZ | A G 30 0 0 
NDZ | A M 26 0 0 | 
NNZ 0 0 0 0 ) A Ie 0 0 0 | 
NVZ 9 4 0 a { | 
NXZ 0 0 0 0 | | w 0 0 0 1 
PJ2 0 0 0 0 l | WwW 0 0 0 ¢) 
PK2 | W 0 0 0 0 
PNZ 0 0 0 0 | L 6 0 0 0 
PNZ { | WwW 2 0 0 7 
PRZ 0 0 0 0 | [ Ww 0 0 0 i 
PS2 0 0 0 0 { | W 0 0 0 3 
PTZ 0 0 0 0 { A D 3 0 0 { Vv 0 0 0 s 
PTZ | A IP 6 0 0 W 74 0 0 73 
latye t A G 7 0 0 | 
PTZ | A M 20 0 0 | 
P48 1 0 0 | Ww 0 0 0 0 
eec 0 0 0 0 | w 0 0 0 0 
Q18 0 0 0 A D 0 0 0 | w 0 0 0 1 
R63 ' | WwW 0 0 ¢ 0 
TOTAL Gal 6 0 3 | 90 0 0 | a3 0 0 ay) 


Figure 11 Sample NSN SNapshot Display (Page 1) 
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View § 


Document 
ID 
DDK 
DDK 
DDK 
DDK 
D9C 
D9C 
D9C 
bpgCc 
bgc 
D9C 
pgc 
DgCc 
BIC 
pgc 
bD9gC 
D9SC 
bgCc 
DSC 


View 6 


View 7 


Due-Ins 
Total «= 26 
Document OT, Y OOTY 
/ Call CLIN From To Contracted Shipped 

NO065182350507 / NV2 Z 
NO0065182451723 / NV2 2 
NO0024482360550 / ND2 1 
N0024481970437 / ND2 1 
NWHN3261785135 / ND2 1 
NWHN3270025135 / ND2 3 
NWHN3270165135 / ND2 1 
NWHN3270445135 / PT2 1 
NWHN3270755135 / PT2 3 
NWHN3270795135 / PT2 1 
NWHN3270865135 / ds Wed 1 
NWHN3270905135 / PT2 1 
NWHN3270935135 / Pte 2 
NWHN3270965135 / PT2 i 
NWHN3271005135 / ND2 1 
NWHN3271005135 / PT2 1 
NWHN3271145135 / ND2 1 
NWHN3271145135 / PTZ 2 
Back Orders 
Total BB=- L2 

poc Cry PRJ PR FD 

NOC65182350507 2 770 05 26 

NC065182451723 2 770 05 26 

NC014672581683 1 770 06 26 

RC91)1 6825272827 1 AE9 06 V2 

RO9i:1682571829 1 AE Q 06 V2 

NO0024481370:93 2 770 1 26 

N002440@13806423 1 770 15 26 

N0024481970437E | 770 15 26 

NC02$682260550 1 770 15 26 


Planned Program Requlrements 


Total DGA= 6 Total 101= 0 
Total BPRe- 20 Tetal 30l= 0 
DOC ID Docurent PC SUPAD Gay 

BPR N62995628501236 ® VV1066 1 
BPR N6005CE2560049 W vv0986 1 
BPR NOC264673230022 Vv 87SDLM 4 
BPR NO0C14673230012 Vv &@7SDLM 3 
BPR N0024662270135 &® VV0 886 a 
BPR N63126@2030223 w VV0688 al 
BPR NO018873420227 ® VvVv1287 2 
BPR N6111982°270254 Ww vv088e 1 
BPR NO00651i63560432 A VV1286 3 
BPR NOC42181340296 w vVvVC388 1 
BPR NCO014651350020 w P250SI 1 
BPR N0O014651400025 w vvo585 1 
DGA NO0O3828105W6E21 A 6 
Lysol V0916753600143 & OSIXXX € 
501 N6262352230040 w vv0685 3 
501 RO911671920136 Ww OSIXXxX le 
501 RO719861700104 w OSIXXxX 2 
501 NC031870790035 K VV0387 1 
Sion NO002627188C057 Ww vvC887 1 
Sica V5284160820153 w OSIXXx 8 


Condition EST Delivery 


Purpose 
Code Code 
.¢) A A 
0 A A 
0 A A 
0 A A 
0 A G 
0 A G 
0 A G 
0 A G 
i¢) A G 
6) A G 
0 A G 
0 A G 
0 A G 
6) A G 
0 A G 
0 A G 
0 A G 
0 A G 
BBD STATUS 
BB 
BB 
BB 
BB 
BB 
BB 
BB 
BB 
BB 
Total 50l-= 326 
REOD PROCS 
99999 799 
99999 799 
99999 eye) 
99999 799 
599919 799 
99999 799 
99999 7199 
99999 799 
99999 799 
99999 799 
99999 799 
99999 139 
99999 PHS 
99999 O48 
99999 P41 
99999 Q46 
99999 R4X 
99999 PUZ 
99999 PVZ 
99999 O39 


Figure 11 Sample NSN Snapshot Display (Page 2) 
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Date 
@e@366 
@9011 
@9061 
@€9061 
88301 
88295 
@8301 
88302 
88302 
88302 
#88310 
88310 
@8310 
88310 
88307 
88310 
88301 
88316 


Appendix F shows the NSN Snapshot with the DEN numbers inserted in the place of 
the data. 

The NSN Snapshot is actually an ALIS compound document. The view presented 
to the inventory manager is a document composer window. The data presented is 
actually from a spreadsheet. Figure 12 shows how the document and spreadsheet are 


integrated together. 


Document Composer 


NSN Snapshot 


Nov 18, 1988 
00-051-9587 


-NSN: 7RE 1615-00-051-9587 SMIC: MH 


-Name: Swash Plate, Assy 


.SRIPR: SS_SZ LARC: 5MT WearOut:: 0.04 : 
RIC: GB4BRX PLT: 18 Survival: 0.99 : 
': Source: PA IMC: E Entry dtd: 68064 : 


.std price: $39,580.00 Net Price: $3,410.00 
“RPL PRICE: $41,776.00 Unit Issue: EA 


a 


a 


=a 


ic®: $41,776.00 Unit Pssue: 





Figure 12 Compound Document, NSN Snapshot 
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To create the NSN Snapshot the following steps are used: 


¢ Program NSNSB is run on the IBM 3090. (1 am, nightly) 


¢ The NSNSB data files are transferred from the IBM 3090 to the Sun 3/160 
server. (2 am, nightly) 


¢ The Sun 3/160 executes a batch program that logs in a phantom user on the 
server. The phantom user enters ALIS. (2:30 am, nightly) 


¢ As the phantom enters ALIS, the login macro is executed. This macro builds or 
updates the NSN Snapshot as appropnate and then logs out the phantom user. 


Figure 13 provides a detailed flow chart of the actual thought process and edit checks 
of the phantom user’s login macro. A separate NSN Snapshot 1s created for each stock 
number. The NSN Snapshots are filed, by NIIN (01-123-1234), in a central file area. 
The NSN Snapshots are accessible on a read only basis to the inventory managers. 
Appendix G contains the login macro command document. When the phantom user has 
finished, the NSN Snapshots are located in a central filing area. From the central filing 
location, the NSN Snapshot can then be accessed on a read only basis by the inventory 
manager. When the inventory manager calls up the NSN Snapshot for a specific stock 
number, he or she is actually receiving a compound document inset with a live 
spreadsheet. This live spreadsheet could then be used to support the processing of 
Supply Demand Reviews. A section in the spreadsheet could be added that makes use of 


NSN Snapshot data to perform buy calculations. 
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Phantom user is logged in 
and enters ALIS. 






Variables are 
declaired. 






Login Macro is 
executed. 












Read the lst line of: 









OPEN UVICP extract 
files: 
OFILE] 
OFILE3 
OF ILE6 
OFseInE 9 


OFILE11 











OFILE8& 






OFILES, OFILE6, 












OFILE2 
OF ILES 
OF ILE8& 
OFILE10 
OFILE12 





OFILES, OFITLEVC> OFT EE 11 













OF TILE12 












extract lst 9 characters 











to determine NIIN. 











Read OFILE] and 
extract each DEN, 


METS 


Does OFILE1 
NIIN = “blank” 











hold in memory. 


v- 
Read OFILE3 and 


1f NIIN = ofilel NIIN 
then extract each DEN 
and hold in memory 






Read OFILE2 and 
1f NIIN = ofilel NIIN 
then extract each DER 
anc hold in memory 
else skip. 
































If OF TLES NIN = OF PLE) ONIN 
read OFILES and extract DENS else skip 
then read next line, check next NIIN 

OFILES NIIN = OFILE] NIIN 
check for next NIIN 














if new 

extract DENS, 
hold all DENS in memory 

When OFILES NIIN <> OFILE] NIIN skip 
























If OFILE6 NIIN = OFILE] NIIN 
read OFILE6 and extract DENS else skip 
then reac next line, check next NIIN 
1f new OFILE6 NIIN = OFILE] NIIN 
extract DENS, check for next NIIN 
hold all DENS in memory 
When OFILE6 NIIN <> OFILE1 NIIN skip 





NEXT PAGE «gf 









Figure 13 NSN Snapshot Construction (page 1) 
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GOTO close 







else skip to next routine. 
















leferO FecVeE CN UNG em OPE le NHN 
read OFILE8 and extract DENS else skip 
then read next line, check next NIIN 
if new OFILE8 NIIN = OFILE1 NIIN 
extract DENS, check for next NIIN 
hold all DENS in memory 
When OFILES NIIN <> OFILE1] NIIN skip 

















Ep OR LDVES NIIN = OFTEES NIIN 
read OFILE9 and extract DENS else skip 
then read next line, check next NIIN 
if new OFILES NIIN = OFILE] NIIN 
extract DENS, check for next NIIN 
hold all DENS in memory 
When OFILES NIIN <> OFILE1 NIIN skip 











If OFILE10 NIIN = OFILE] NIIN 

fead OFILEIO and extract DENS else skip 

then read next line, check next NIIN 

itenew OF LLELOONLIN: = OF ILE] NIIN 

extract DENS, check fer next NIIN 
hold all DENS in memory 

When OFILEIO NIIN <> OFILE1] NIIN skip 
























TROORILEL] NILN = ORTLED  NTIN 
fead OFILE11 and extract DENS else skip 
then read next line, check next NIIN 
if new OFILE11 NIIN = OFILEI! NIIN 
extract DENS, check for next NIIN 
hold aii DENS in memory 

nen OFILE]1 NIIN <> OFILE] NIIN skip 























09¢ ()2 2S) Heads CO fez agiciaay jy acagy 
read OFILE12 and extract DENS else skip 
then read next line, check next NIIN 
iteemew OF LLE2 NIIN = OF ILE NIIN-° ©“ .«©§ © Su vee eee 
extract DENS, check for next NIIN 
Re1lC di. DENS IG memory 
meen OFILE,2 NIIN <> OFILE] NIIN skip 






Agi DENS. for {his 
NIIN have been pulled. 








Spreadsheet for NO Create Spreadsheet 


this NIIN exist? 






using styie guide 







snap 1_ss 





S128) 






open spreadsheet 








“NIIN + SS + 1" 






teg; 021-031-1355 ss 2) 


Remove old DEN values ; u 
4 Write new DEN values to Next Page 


from spreadsheet. spreadsheet. 





Figure 13 NSN Snapshot Construction (page 2) 
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Close 


NIIN- + SS 452 





Close VICP extract 
files: 

OF ILE] OF ILE2 
OFILE3 OFILES 
OFILE6 OFILE8 
OFILE9 OFILE10 
OFILE11 OFILE12 


Close 


Open UICP extract 
Faves: 
OFILE} OFILE4 














YES 
22 J GeTCretoase. 2 


Read OFILE} 
extract NIIN 


Does OFILE1] 
NIIN = “blank” 





and 








NO 






If OFILE4 NIIN © OFILE1 NIIN 
read OFILE4 and extract DENS else skip 
then read next line, check next NIIN 
if new OFILE4 NIIN |= OFILE] NIIN 
extract DENS, check for next NIIN 
hold ail DENS ir memory 
When OFILE4 NIIN <> OFILE1] NIIN skip 











open spreadsheet 
Nith c+- SS 71 


Write DENS to 


spreadsheet. 





Close VICP extract 
Close 2 |}: files: 


OFILE1 OFILE4 Next Page 


Figure 13 NSN Snapshot Construction (page 3) 
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Open VICP extract 
File: 
OF ILE) 


Read OFILE1 and Does OFILE] YES 
extract NIIN NIIN = “blank" rn LOGOUT 


Dees a Create Document 


Spreadsheet for 
this NIIN exist? 


using style guide 
Modei Snapshot 


Close and save Merge Documennt and 


document. spreadsheet for 
this NIIN. 





Figure 13 NSN Snapshot Construction (page 4) 


D. INVENTORY MANAGEMENT MENU CONSTRUCTION 

To make the DSS easier to use, a special inventory management menu was 
constructed. It allows the inventory manager to rapidly access inventory management 
data. When the inventory manager types the key sequence <Command Key>, '"M" the 


“Inventory Management” menu appears. It offers the choices of: 


¢ NSN Snapshot 

¢ Requisition Processing 
« NSN Notebook 

¢ Cyclic View 


Figure 14 shows how the menu appears to the inventory manager. 
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Inventory Management 


NSN Snapshot 
Requisition Processing 
NSN Notebook 


Cyclic View 





Figure 14 Inventory Management Menu 


After the menu appears, the inventory manager types the key letter, or clicks on the 
circled letter with the mouse. A window then appears requesting the stock number of 
the item of interest. In the case of the NSN Snapshot, the program changes the 
directory to the shared library and extracts the NSN Snapshot for the item requested. 
The program is now completed and the inventory manager has the NSN Snapshot for 
the requested stock number in an open window. The inventory manager can then work 
with the requested NSN Snapshot or request additional NSN Snapshots for other 
stock numbers. The window can also be set aside (as an icon) for future use. A 
maximum of 20 windows can be open on the ALIS desktop at a time. Appendix H 
contains the various macros used to build the Inventory Management Menu. 
E. NSN Notebook 

Miscellaneous information like pending technical changes or details of a contract 
expedite action is maintained by the inventory managers in an ad hoc manner. In many 
cases, the information is kept on an intermittent basis. Additionally, a standard format 
for recording the information onto the 730 cards does not exist. The information is 


lost to his or her fellow workers, when the inventory manager is not available, because 
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the paper records are kept as a personal notebook. The inventory managers stated that 
this information needs to be available to all the members of the inventory manager's 
team and his or her supervisors. 

The NSN Notebook was designed to replace the paper records that the inventory 
managers are presently keeping. The NSN Notebook provides inventory managers with 
a consistent method of storing and retrieving miscellaneous management information. 
The NSN Notebook is also an element of the DSS. By providing convenient, fill in the 
blank menus, the inventory manager has an easy way of recording the information. The 
fill in the blank menu provides a standardized method of gathering data. By providing 


prompts like: (Contract Number: ) the inventory manager is reminded that 


this information is valuable and needs to be saved. Therefore the information is saved 
in a consistent manner, and because it is in a central file, the information is accessible 
to all members of the management group. 

When the NSN Notebook is selected from the Inventory Management Menu, the 
inventory manager is prompted to enter the NIIN for the he wishes to work with. 
Next the inventory manager is offered the choice of nine NSN Notebook functions 
such as viewing the Notebook data or entering new data forthe NIIN. Figure 15 


shows the notebook input selection menu and the various input menus. 


Fl 


Stock Number Notebook 


Please enter the NIIN for the item that you 
want to add or read information about. 


Format 01-123-1234 


Requested NIIN: 


Notebook Selection Menu 


ase Select the function you need. 

View the Stock Number Notebook 
Alternate NIIN Information 
Contract Expedite Information 
Contract Reconsignment Information 
Contact Termination Information 
Points of Contact forethis NIIN 
Pending Change Information 

Misc Notes & Remarks 

Exit this Program 


1 


BGEO0C0BOCEG 


Pick an Option: 


Alternate NIIN Information 


Alternate NIIN Information 


Please inout alternate NIIN information 
for: 00-123-1234 


Alt 
Alt 
Alt 
Alt 
Alt 
Alt 


+ tt eH HH H 
OV U1 ff Go Ror 
ee ee es os @e ee 


Bilt rCeturn tor blank fields 


Contract Expedite Information 


Contract Expedite Information 


Please input Contract Expedite Information 
tor: 00-123-1234 


Contract Number: 
Message/Letter: 
Reply Date: 

wey: 

eh Os 

Received Delivery: 


Rit return tor blank fields 





Figure 15 NSN Notebook Menus (Page 1) 
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—— Contract Reconsignment Information ———— BE) 


Contract Reconsignment Information 


Please input Contract Reconsignment Information 
for: 00-123-1234 


Contract Number: 
Message/Letter: 
From Destination: 
To Document Number: 
Est Delivery Date: 


Hit return for blank fields 


Cn a a ee | 


Contract Termination Information == [LE] 


Contract Termination Information 


Please input Contract Termination Information 
for: 00-123-1234 


Contract Number: 
Termination date: 
Termineceda (Y Or N): 
Original Quantity Due: 
Terminated Quantity: 
Balance Due: 


Hit return for blank fields 


Points of Contact Information 


Points.07 Contac: 
Please input Points of Contact for: 00-123-1234 


Last Name: 

First Name: 

Company / Command: 

Code / Division: 
Commercial phone number: 
Autcvon phone number: 


Bit return tor blank =trelds 
Use the Misc Note form for mailing addresses 





Figure 15 NSN Notebook Menus (Page 2) 


ree 


Pending Change Information 
Pending Change Information 


Please input Pending Change information 
for: 000-123-1234 


Line #1 
Line #2: 
Lines #2: 
Line #4: 
Line™=45: 
Line #6: 


Hit return for blank fields 


Misc Note & Remarks 


Mise Notes & Remarks 


Please input Misc Notes & Remarks 
for: O0=123-1 254 


sume fae. 
Line #2: 
Line #3: 
Line #4: 
Lines so: 
Line #6: 


Hit. return for blank tields 





Figure 15 NSN Notebook Menus (Page 3) 


F. REQUISITION PROCESSING 

At the time of the writing of this thesis, the final elements of the requisition 
processing flow chart were not completed. The data manipulation elements are ready, 
Only the work on the decision matrix needs to be completed. When it is finished in 
January 1989, the decision matrix will provide the decision rules that apply to each 


type of requisition. 
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Requisition processing will be handled in the following manner: 


° Requisitions are received by the IBM 3090. 
° Using the LRC, requisitions for WMB51 will be identified and transferred 
to the Sun 3/160. 


° Upon receipt of the requisition, the UNIX operating system will activate 
the phantom user account assigned for requisition processing. 
° The phantom user will read the file for each requisition. The file will be 


moved into a spreadsheet. The method is similar to the one used in the NSN 
Snapshot process. 

° The phantom user then runs a macro which will save the spreadsheet in the 
central filing area and send a message to the appropriate inventory manager 
and his/her supervisor that a requisition needs to be processed. 


. When the inventory manager selects the requisition processing option from 
the Inventory Management Menu, he will be presented with a list of the 
requisitions for his LRC that need to be processed. 

. The inventory manager then selects the requisition he wishes to process. 


° A view of the requisition will appear in a window. The NSN Snapshot for 
the stock number being requested will appear in another window. A third 


window will contain a dialog box? which will use a macro which is based 
upon the decision matrix to assist the inventory manager in properly 
handling the requisition. 

° The dialog boxes will present the inventory manager with choices. After 
each choice a new dialog box will appear. The program continues on until 
another decision is required. 

° After the decision making phase of the macro has been completed, the 
macro will format a file. The file will contain the 80 card column image the 
data entry clerk would have entered into the IBM 3090. This file records 
the inventory managers decisions concerning the requisition. 

° The file is then transferred to the IBM 3090 and placed in the batch queue 
for UICP. The queue is read into a UICP program which will issue a 
shipment order and will issue a requisition status message to the requisi- 
tioner based upon the 80 card column image. 


. The macro then deletes the requisition from the DSS’s central file. 


. The inventory manager is then told if additional requisitions need to be 
processed and, if there are, the inventory manager is asked if he or she 
wishes to continue processing requisitions Based upon the response the 
macro is re-executed or exited. 


3 A menu which offers the user several possible choices and asked him or her to 
select one. 


as 


This DSS macro provides a consistent method for processing requisitions. 
Additionally, because the data is transmitted directly from the minicomputer to the 
mainframe, the number of data input errors is reduced. The requisition processing 
module will expedite the requisition processing process, provide a more consistent 
method of acting upon the requisition and reduce the chances of data entry errors. 

G. CYCLIC VIEW 

The Cyclic View will provide the inventory manager with historical data presently 
given on the consolidated stock status report (CSSR). This information allows the 
manager to look at past demand trends to gauge whether a sudden increase or decrease 
in demand is due to a single aberration or is happening on a recurring basis. This 
historical information needs to be considered as part of any future buy computations. 
The cyclic view will take data elements from the UICP database and copy them into the 
NSN snapshot spreadsheet. A separate area of the spreadsheet for the Cyclic View will 
be maintained. When the Inventory Manager selects the Cyclic View from the 
Inventory Management Menu he or she will be presented with a compound document, 
inset with the spreadsheet containing the Cyclic View. Additionally a graph showing 
the historical demand trends for the item will be available. The COBOL program to 
extract the required data clement presently being written by Mr. Rosen and the 
NAVSUP interns. It is expected that the COBAL program and the ALIS macro will be 


completed in March 1989. 
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H. SUPPLY DEMAND REVIEW 

The UICP model B10 (Supply Demand Review) provides recommendations for 
quantities of an item to buy. Presently the recommendations are printed and delivered 
to the inventory manager along with various management data. The manager then 
reviews the recommendations, modifies parameters he or she does not agree with, 
recomputes the quantity to procure and prepares a procurement package that is 
forwarded to the procurement section. The Supply Demand Review processing module 
will receive the recommendations from the mainframe and display the recommendations 
for the IM’s review. The program will then recompute a new procurement quantity 
using data elements present in the NSN Snapshot spreadsheet and then prepare a ‘buy 
package". This module is scheduled to be finished in February 1989. 
I. STYLE GUIDES AND OFFICE AUTOMATION 

ALIS provides the ability to use style guides. Style guides are blank documents, 
spreadsheets, graphics and databases that have certain parameters predefined. When the 
inventory manager wants to create a letter for official correspondence, he or she will 
select the "Create a document” choice from the main menu and ask for the appropriate 
style guide. When the document appeared, it would be in the proper format and the 
cursor positioned such that he/she 1s prompted to provided information that is needed 
for the headings. This same method could be used with spreadsheets to compute initial 
procurement quantities. The inventory manager would be prompted for various 
information which would be used for the computation. 

Today much of the work done by the inventory manager is handled in an 


independent manner and enforcing standards is difficult. The style guides will help to 


fa) 


ensure that the standards are followed. The consistency of computations done by 
personnel within the branch, and the consistency of the formats of written messages 
and correspondence from the branch can also be improved through the use of style 
guides. This subtle assistance makes the style guide part the DSS. If the administrative 
load on the inventory managers can be reduced, their overall productivity, and time 


spent actively managing items, can be increased. 
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VII. SUMMARY, CONCLUSIONS AND RECOMMENDATIONS 


A. SUMMARY 

The primary goal of this thesis was to develop a workstation designed to assist the 
inventory manager in performing his or her work in a more efficient manner. By 
presenting UICP data to the item manager in a well designed, consistent manner, the 
potential exists for the inventory manager to work more efficiently. A major element 
in the presentation of the UICP data on the inventory manager’s workstation is the 
decision support system. 

Working closely with the inventory managers from ASO’s Code WMB51, the 
identification of the UICP data they need to perform their work was accomplished. By 
listening closely to inventory manager’s requirements and how the inventory manager’s 
would like to see the UICP information displayed, the development of an IM Worksta- 
tion that represents their heuristics was possible. 

Using the hardware and software procured specifically for this thesis and the 
heuristics provided by the inventory managers a sample IM Workstation was developed. 
This thesis has demonstrated that an IM Workstation can be constructed. Asa 
consequence a prototype 16 user system for WMB51 is now being contracted for. 

The sample workstation was tested by the inventory managers of the WMB51 
branch. The functions tested, in addition to the office automation features inherent to 
ALIS, were: 


¢ Inventory Management Menu 
¢ NSN Snapshot 
¢ NSN Notebook 


WS, 


¢ Sample requisition processing screen 


¢ Sample style guides for official letters and naval messages 

The inventory managers, after a demonstration of workstation, were allowed to work 
with the various functions. After becoming familiar with the mouse and the windowed 
environment provided by ALIS on a SUN workstation, the inventory managers didn’t 
experience any difficulty using the various functions. They expressed surprise that 
snapshot and notebook they had help designed, on paper, could be transformed to a 
computerized system. The inventory managers were enthusiastic with the sample system 
for both the custom functions, and the general office automation provided by ALIS. 
The unanimous feeling was that the IM Workstation would greatly improve the 
efficiency and quality of life for inventory managers and they were anxious to receive 
the prototype system. 

The perception by the inventory manager was that the DSS was only an additional 
option, like the spreadsheet, and not actually a way to shape their actions in consistent 
manner. This perception was gained because the inventory manager’s felt that the IM 
Workstation was their system, which it is. This thesis facilitated the inventory 
manager's desires and made them into a workable system. The inventory managers are 
a very intelligent (and computer literate) group of people. They had an image of what 
they were looking for in a computerized system, how it could improve their efficiency 
and what they could do with the UICP system given the proper tools. Once they 
understood what a possible IM Workstation could do, they provided a very detailed lst 


of requirements. 
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B. CONCLUSIONS 

The IM Workstation, even in the form of the sample system, shows that a DSS to 
support inventory management is possible. The fact that the inventory managers could 
have such a constructive part in the development shows that previous methods of 
developing computerized systems in a vacuum, with little or no user involvement, have 
been surpassed. 

The extended language facility (ELF) of ALIS provides an easy to learn and use 
programming tool. Programmers, using the ELF facility, would be responsive to the 
needs of the inventory managers, providing a rapid response to changing Situations. 
The programmers would most probably be computer literate inventory managers under 
the guidance of a trained management information specialist. 

The SUN Microsystems hardware selected to develop the sample system was only 
one of many possible hardware solutions. Because the core software, ALIS, will 
operate on over 20 different computer systems, the system will transportable. With 
the IM Workstation, all the hardware can be competitively procured, removing the 
barrier normally experienced when a system is procured sole source. 

This thesis shows that a complex system like UICP can be made user friendly and 
more effective use made of its information. Additionally, it shows that the quality of 
life for inventory managers can be improved, while increasing their efficiency. A 
system like this or something equivalent to it is needed as soon as possible by the 


inventory managers. 
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C. RECOMMENDATIONS 


Now that a sample system has been developed and a prototype system is being 


contracted for WMBS1, the following functions discussed in Chapter six need to be 


finished: 


Additional error checking sub-routines for the programs already written. 
Requisition processing 

Cyclic view 

Supply demand review (SDR) processing 


Additional style guides for documents, spreadsheets and database. 


Additional functions that would add additional value to the IM Workstation, but need 


to be explored are: 


Expert systems to assist the decision making process. 

Scanning of contracts to be optically stored for easy retrieval. 

A system to produce requests for proposals (RFPs) and contracts. 
A consolidated inventory management and contracting system. 


A distributed database system, using the same database software on each 
computer level, to allow transparent sharing of data and process sharing. 
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APPENDIX A 


UICP REAL TIME RETRIEVAL (A02) PROGRAM DESCRIPTIONS ! 


PROGRAM ~~ DESCRIPTION 


AS 


BA 


BB 


BC 


BD 


BE 


BF 


BJ 


BK 


BM 


CB 


PROVIDES ITEM STOCK STATUS 


PROVIDES ITEM INFORMATION FROM THE VARIOUS SEGMENTS OF 
file MDE eS) RE 


PROVIDES FSCM/REFERENCE NUMBER TO STOCK NUMBER CROSS- 
REFERENCE INFORMATION 


PROVIDES DATA FROM THE CASREP REQUISITION FILE 


PROVIDES PRESERVATION, PACKAGING, TRANSPORTATION AND 
COGNIZANCE DATA 


PROVIDES SUPPLY ITEM TECHNICAL DATA PERTINENT TO PROCURE- 
MENT REFERRALS OR REQUIRED ITEM MANAGEMENT DATA FROM 
THE SPECIFIED APPLICATION ENTRY 

PROVIDES SUPPLY ITEM TECHNICAL PROCUREMENT DATA 
PROVIDES DATA FOR UP TO ANY TEN DATA ELEMENT NUMBERS 
(DEN) AND UP TO ANY TEN STOCK NUMBERS IN THE MDF, PSI, TRF 
OR ONF 


PROVIDES DATA NECESSARY FOR TECHNICAL ANALYSIS PERTINENT 
TO THE PROCUREMENT OF AN ITEM 


PROVIDES DATA FROM THE MATERIAL RETURN PROGRAM SUS- 
PENSE FILE (MRP) 


PROVIDES DATA CONTAINED IN THE CHANGE NOTICE SUSPENSE 
Pil EFFEC E DATESUSPENSE FILE 


PROVIDES DATA FROM THE BACKORDER FINDER FILE (BOF) 


l Actual help screen from online AQ2 retrival program, presentation edited for 


printed clarity. 
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DA 


DB 


DE 


DF 


DJ 


BP 


KQ 


NA 


NB 


ND 


RS 


WA 


PROVIDES DATA FROM THE PLANNED PROGRAM REQUIREMENTS 
FILE (PPR) FOR A SPECIFIC ITEM OF SUPPLY 


PROVIDES DATA FROM THE DUE-IN/DUE OUT FILE (DDF) 

PROVIDES DATA FROM THE REPAIRABLES MANAGEMENT FILE (RMF) 
PROVIDES DATA FROM THE REPAIRABLE EVENTS FILE (REF) 

INPUT BATCH RETRIEVAL REQUESTS TO A10AX 


PROVIDES CARCASS TRACKING RECORD TYPE "C" DATA FROM THE 
CARCASS TRACKING RECORDS FILE (CTR) 


INPUT BATCH REQUEST TO PROGRAM B35UV (CARCASS TRACKING 
RECORDS NIIN RETRIEVAL) 


PROVIDES RETRIEVAL OF UP TO TEN DATA ELEMENT NUMBERS 
(DEN) FOR UP TO ANY TEN REPARABLES MANAGEMENT FILE (RMF) 
RECORDS. 


PROVIDES STOCK NUMBER CROSS-REFERENCE DATA FOR UP TO 
EIGHT FSCM / REFERENCE NUMBERS 


PROVIDES USAGE ACTIVITY RATES, STATISTICS, AND RETAIL 
REQUIREMENTS INFORMATION DATA FROM THE AVIATION RETAIL 
MANAGEMENT FILE (ARM) 


PROVIDES DATA FROM THE INDIVIDUAL COMPONENT REPAIR LIST 
FILE (ICR) 


PROVIDES DATA FROM THE CONTRACT STATUS FILE (CSF) 


PROVIDES PURCHASE WORKSHEET DATA FROM THE CONTRACT 
STATUS FILE (CSF) 


PROVIDES DATA FROM THE SUPPLIERS DATA FILE (SDF) 

PROVIDES THE NAVYS ORDER OF USE FOR DOD INTERCHANGEABLE 
AND SUBSTITUTABLE FAMILYS WHERE THE NAVY IS THE PRIMARY 
INVENTORY CONTROL ACTIVITY 


PROVIDES DOCUMENT STATUS FILE (DSF) DATA FOR A SPECIFIED 
DOCUMENT NUMBER 


PROVIDES OPTION TAILORED WEAPONS SYSTEMS FILE (WSF) DATA 
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avC 


WG 


WJ 


WQ 


YA 


we 


YG 


PROVIDES DATA FOR UP TO TEN NEXT HIGHER ASSEMBLIES (NHA) 
FOR UP TO ANY TEN APLS, AELS, OR EQUIPMENT MODEL CODES 


PROVIDES APPLICATION DATA AND ALLOWANCE LIST DATA FOR A 
SPECIFIC STOCK NUMBER 


PROVIDES WSF NEXT LOWER ASSEMBLY CHAIN EXTRACT DOWN TO 
FOUR LEVELS OF INDENTURE 


PROVIDES UP TO ANY TEN NON-REPETITIVE DATA ELEMENTS FOR 
UP TO ANY TEN WEAPONS SYSTEMS FILE (WSF) LEVEL A, B, OR C 
PRIMARY RECORDS 


PROVIDES UP TO ANY TEN NON-REPETITIVE DATA ELEMANTS FOR 
UP TO ANY TEN RECORD IDENTIFICATION NUMBERS (RIN) IN THE 
WEAPONS SYSTEMS FILE (WSF) 


INPUT BATCH RETRIEVAL REQUESTS TO WEAPONS SYSTEMS FILE 
PROGRAM A10EX 


PROVIDES WEAPONS SYSTEMS FILE (WSF) PROGRAM WA DATA 
WITH A NOMENCLATURE INPUT. NOMENCLATURE IS CROSSED TO A 
WSF KEY IN THE NOMENCLATURE TO RIC FILE (NRF) 


PROVIDES PART / EQUIPMENT APPLICATION / POPULATION DATA. 


PROVIDES DATA FROM THE MDF, PSI, TRF AND WSF WHICH IS 
NECESSARY FOR THE MANAGEMENT OF THE SHIPBOARD EQUIP- 
MENT CONFIGURATION ACCOUNTING SYSTEM (SECAS) 


PROVIDES DATA FROM THE NOMENCLATURE TO RIC FILE (NRF) 
FROM THE WEAPONS SYSTEMS FILE (WSF) NECESSARY FOR THE 
MANAGEMENT OF THE SHIPBOARD EQUIPMENT CONFIGURATION 
ACCOUNTING SYSTEM (SECAS) 
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APPENDIX B 
REVIEW OF ALIS FEATURES 

1. INTRODUCTION 

ALIS is an integrated office automation software package that operates under a 
variety of computer operating systems. The software contains a word processor, 
spreadsheet, personal database, graphics editor, electronic mail, calendar, and file 
management modules in a tightly integrated package. The Graphical User Interface has 
an icon based (object oriented) information management system, with multiple windows 
that makes use of a mouse. Itis very similar to the Apple Macintosh style interface, 
with greater consistency between the modules. Electronic mail can be sent via the 
Simple Mail Transport Protocol (SMTP) used by the Transport Control Protocol / 
Internet Protocol (TCP/IP) standard established by the Department of Defense and used 
widely to connect dissimilar computer systems, IBM DISOSS and CICS mail via a 
gateway package, standard UNIX mail and Digital Equipment Corporation’s DEC mail. 
2. OPERATING SYSTEMS 

ALIS version 2.0 is presently ported to over 20 UNIX based systems. These 
include SUN Microsystems servers and workstations, IBM RT PC, any Intel 80286 & 
80386 based system operating under XENIX and Hewlett-Packard HP9000 series 
workstations. The system also will operate under AT&T’s UNIX system V, Berkley 4.2 
UNIX, Apollo’s Aegis, and Digital Equipment Corporation’s (DEC) Ultnix operating 
system. Additionally ALIS will run on any of DEC’s family of VAX computers under 
the VMS operating system. The large number of platforms that ALIS can operate on, 


and the range of systems available from personal computer to mainframes, does not 
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impose a limited on the number of users, mass storage or response time. Further 
flexibility is afforded via the ALIS capability to use macros and data created on one 
system (UNIX), without translation for use on other systems (VAX VMS). This allows 
dissimilar systems installed at one site to be able to work together as a cohesive group 
and exchange information. 

3. EQUIPMENT CONFIGURATIONS 

ALIS is very flexible in how the CPU processing and file storage is distributed. 
The base configuration Could be a central computer (Intel 80386, SUN 3/160, DEC 
VAX 8800) with one console device and multiple ANSI X.64 "dumb" terminals. In 
this configuration only the console would have the complete "Graphical User Interface’ 
(windows) which could use a mouse. The terminals would have a character based display 
(similar to IBM’s PROFS or DEC’s ALL-IN-1) and use the system with function key 
commands. Non-graphic terminals would not be able to display business graphics. All 
processing and storage occurs on the central computer’s CPU. 

The next higher configuration would use the same central computer. The 
cOmputer would be connected to a network (Ethernet or Token Ring) running the 
TCP/IP protocol. Instead of the ANSI X.64 terminals each user is given an MS-DOS 
based personal computer (PC) connected to the network with an interface card. An 
MS-DOS based product called "PC-ALIS" 1s used. This product allows each PC to have 
a complete graphical user interface, including mouse support, which utilizes all of 
ALIS’s features. PC-ALIS is an intelligent terminal emulator which uses TCP/IP to 
communicate with the central CPU. The processing load 1s split between the central 


computer (which handles file storage, computations and network interface) and the PC 
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(which handles the screen processing). For example if a spreadsheet graph is updated, 
the central CPU processes the changes. Simultaneously the PC sends and then receives 
the updates and paints the screen to reflect the changes. Since the bit mapped screen 
imaging used to create the graphical user interface is a high overhead item , the 
distribution removes some of the load from the central CPU. 

The highest level configuration has a central CPU acting as a file server. This 
network hub (SUN 3/260 or DEC VAX 8800 server) has multiple UNIX or VMS based 
workstations connected to it via an Ethernet (Eg; SUN NFS (network file system) 
protocol for UNIX or DEC’s DECNet protocol for VAX VMS). Each workstation 
would process its own tasks and use the server for storage and network services (mail, 
printing tasks, file transfers). Each workstation would have a complete graphical user 
interface with mouse support. This is what the XEROX Palo Alto research center 
defined in 1981 as the optimal information system.2 Individual workstations are 
connected to a central file server via an Ethernet. Each workstation would have a 
graphical user interface, featuring multiple windows, a consistent user interface, with a 
mouse based pointing device. It has taken 8 years for computers and ethernets to have 
sufficient speed and power to make this optimal system feasible. 

4. USER INTERFACE 
The "XEROX Star" style interface is best known for its implementation on the 


Apple Macintosh computer. Partial implementations of the interface are also seen in 


2 Designing the Star User Interface, Dr David Smith etal, XEROX Corp., Byte 
Magazine, April 1982 pp 242-282. 
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Microsoft’s Windows and IBM’s planned Presentation Manager for the OS/2 operating 
system. Much of IBM’s planned Systems Application Architecture (SAA) is based upon 
the Star interface methodology. Visually the ALIS system appears as an extended 
version of Microsoft Works for the Macintosh. The ALIS system contains all the 
elements (windows, icons, mouse, integrated graphics and text) that have made the 
Macintosh popular while overcoming many of its failings. By taking advantage of a 
powerful minicomputer or larger system, ALIS users do not experience the delay times 
associated with the Macintosh. Further ALIS is designed for working with a group and 
sharing information. Conversely the Macintosh is limited to simple file sharing via an 
Apple-Talk network which experiences long delays waiting for file from a central 
storage location, or to and send files to a central printer. UNIX and VAX VMS were 
designed with multitasking, networking and telecommunications in mind. This allows 
full background operations such as mail transfers, print spooling and batch processing. 
Like the Macintosh, the user can start and stop tasks via a click of the mouse. 
Multiple windows can be opened and information traded between windows via a cut and 
paste operation. Unlike the Macintosh, ALIS offers dynamic linking. The dynamic 
linking is one of ALIS’s most powerful features. Dynamic linking allows information 
from spreadsheets, databases and graphics to be linked. If the spreadsheet is updated 
with new data the links to the database, other spreadsheets and documents are updated. 
For example, if the latest quarters sales are entered into a spreadsheet and average sales 
are generated, then reported via a document ALIS would automatically generate the 
new sales average and enter them into the designated spot of the document. ALIS also 


has an easy to use macro generator. Unlike the Macintosh, ALIS allows menu 
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generation, information query pop-up windows and the ability to have one macro 
access the various modules and perform a complex operation. The macro could for 
example, read the database, input data into the spreadsheet, compute a number and 
update an associated graph. The macro then places the new number and updated graph 
into the document, sends the document via electronic mail, to a distribution list. This 
total sequence could be triggered from a single menu pick. 
5. WORD PROCESSOR 

The document composer is a full feature word processor with all the features of 
Word Perfect ver 5.0 less a thesaurus. ALIS allows graphics and spreadsheet tables to 
be integrated into documents, but unlike Word Perfect, it uses a cut and paste 
Operation that does not require extensive file manipulation. It makes full use of the 
mouse and also has a WYSIWYG (What you See is what you get) display that shows 
both the fonts and graphics exactly as they will be printed. ALIS offers 5 fonts and 
from between 6 to 36 points. The system also allows the import and export of IBM 
DCA RFT, ASCII, and NavyDIf file formats. This allows the transfer of documents 
between ALIS and IBM systems, standard word processors and PC based word 
processing systems. 
6. SPREADSHEET 

The spreadsheet has all the features of Lotus 1-2-3 and a look and feel that is very 
similar to Microsoft’s Excel. It makes use of the mouse and has an array of 702 X 
9999 cells. Since the system is UNIX or VMS based and uses virtual memory there is 


no limit on the practical size of the spreadsheet. It has inter-spreadsheet referencing 
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(3D) like Boeing Calc or Lucid 3D. The system allows import and export of Lotus 
1-2-3 WKS files, DIF, Multiplan and Excel (SYLK) files. 
7. PERSONAL DATABASE 

The database is a flat file database designed to handle small size data requirements. 
It is similar to Borland’s Reflex and IBM’s Filing Assistant. The module is best used 
to hold data from larger system or for personal databases (to do list, phone directo- 
ries and mailing lists). It allows import and export of DIF files. 
8. GRAPHICS EDITOR 

This module is a complete graphics and drawing package. It has features similar to 
Media Cybernetic’s DR HALO and Software Publishing Corporation’s Harvard 
Presentation Graphics. Additionally the package allows business graphics created from 
spreadsheet data to be edited and annotated. HP-GL formatted graphics and FAX images 
can be imported and saved as separate objects and also included into compound graphics 
images. 
9. ELECTRONIC MAIL 

ALIS can send and receive compound documents to other ALIS systems without 
regard for the recipient's operating system. The system can also send and receive 
standard UNIX mail (text format only), DEC Mail and with gateways most IBM 
systems. Additionally, the system has a pop-up phone message, in the format of phone 
message slip, which allows a message to be sent that call was received while the 


recipient was out. 
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10. CALENDAR MANAGEMENT 

The calendar management system provides for both personal time management and 
resource scheduling. It contains the features of IBM’s PROFS and DEC’s ALL-IN-1 but 
additionally allows the calendar to be accessed and viewed while working on other 
documents. It also contains an activity planner, delegate tasks and schedules resources 
(meeting rooms, projectors and personnel). 
11. MISCELLANEOUS 

The ALIS system supports a wide variety of printers. Support includes HP 
laserjet, postscript printers, HP-GL plotters and dot matrix printers. The file 
management systems is presented to the users organized as a series of file cabinets and 
folders. The system allows document searching and keyword retrievals. Files can be 
shared between users and access can be controlled. 

ALIS is written in the "C" programming language. Applix Inc. offers an integra- 
tion toolkit. This allows non-ALIS products to be integrated into the ALIS environ- 
ment. An SQL database can be made part of the system with the toolkit. This allows 
data to be pulled out of the SQL database and moved into other modules. The SQL 
database can also provide a window to allow data input and display. Applix Inc. offers 


an IBM 3270 terminal emulation window. 
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11. SUMMARY 
ALIS is a distinctive integrated system with several key features that differentiate 
it from similar products: 


° Operating on computers from different manufacturers, it allows the 
computer hardware to be competitively procured while providing a consis- 
tent user interface usually not available when different brands of computer 
are installed. 


° Running on any size machine, ALIS eliminates the need to change application 
software when a larger machine is required. 


. Benefiting from hardware independence, a cost effective configuration can 
be developed for the smallest office or the largest corporation. When 
expansion is necessary, replacement of the current equipment and training 1s 
not required. Rather, additional equipment is added to the network and the 
Current training program and application software is retained. 


° Integration of dissimilar systems is much easier with ALIS’s excellent 
telecommunications capabilities. 


° For computers larger then personal computers ALIS is the only software 


product that provides the "XEROX Star" interface. This style interface 
makes the system easy to learn and use. 
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APPENDIX C 


DATA ELEMENTS SELECTED BY INVENTORY MANAGERS AND THE ASSOCI- 


ATED A02 PRODUCT THEY APPEARED IN. 
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APPENDIX D 


NSNSB PROGRAM TO EXTRACT UICP DATA 


00010000 
00020006 
0003000C 


Mer OO IDENTIFICATION DIVISION. 
000200 PROGRAM-ID. 

000300 AUTHORS. 

000400 

000500 

POO600 INSTALLATION. 

000700 DATE-WRITTEN. 

000800 DATE-COMPILED. 88278. 
eeoOI700 SECURITY. 00090000 
O0O100C REMARKS. 001000CC 
OOLIOO** eee ee eee Kee Kee NOT TL OOO 
for200* * TEIS PROGRAM EXTRACTS SELECTED DENS FROM B10JX1 RECORD 77 O0P20000 
oo 300** Meee eDe  oheee,  , N,. Bon, lye ys ANDO} 2) AND PLACES SOC 35000 
oo1400** TOES DES INTO. OUTPUTS RECORD TYPES (1-11) FOR USE IN ** 0102 40000 
ota 200*" THE NSN SNAPSHOT PROGRAM *= OG S20 


OOL600** tee Ree er KE eee eee ere Ke KEK He eK] EOOCL 


NSNSB. 
PAUL ROSEN. 
BILL LEANZA. 00040000 
ELMER NAGRAMPA. 00050000 
ASO. 00060000 
88259. 00070000 
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080700 
080800 
080900 
081000 
081100 
081200 
081300 
081400 
Ue .000 


JEsKOOi=c 
05 DD-DOC-INCD-L 
05 KOC2-L001-L 


CS LOOLA={L 

OS SP IPELER 

Co -L0Z22-L 

CS 2s lER 

05 AGO: -FROM-L 
Ue ee TLLER 
Coane - 10-1 
dS) 66 1 SLE 

SS LOCI ee re 
(So SicNhel 

OS FP iLLER 

05 COO3E-L 


Gear 2 LLER 
Oey DE LY DALE 
OD. h 2. ELER 
go LOs4=L. 
Peel Os4—l=—sK 
10 LO34-L=-MINUS-IN 
GS Sl CuER 
Poe DATE-CP—-ACTION—L 
OST LLER 
OS TYPE-OF -ACTION=<L 
OS -POLLOW-Ur—iNo-. 
C2 EX2SDi0E-2ND=—_ 


Pre 
Pale 
Pag 
Poe 
Pie 
Pic 
Pale 
js 


Pre 
PIC 
Eile 
PAS 
Pane 
Pic 
Pace 
PLS 
EPIC 
Pre 


Nitto 
i 


Pac 
Pic 
ae 
Fane 
Pee 
FIC 
Pie 


Pane 
PL 
ron 
Pie 
PEC 
Rac 
ae 
Pic 
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16o) ae 
X(7). 
See 
MAS 


X 


X 


XXX. 
X 


Xx. 
X(€). 
xe 
XXX. 
X. 
XXX. 


XX. 


ee 


re 


$9(€). 


ae 
X 


xe 
X. 
Me 
Re 


X(9). 


X(2C0). 


>a algal Ie 
X(4). 


o3)e. 


C78600CC 
07870000 
07880000 
07890000 
07900000 
07910000 
07920000 
07930000 
0794000C 
07950000 
C7960000 


ENTRY*** eee ee eee eee ee rer ew KO TOTO OOD 


07980000 
07990000 
O80000C0 
08010000 
08020000 
08020000 
08040000 
O80500CC 
O806000C 
08070000 
08080000 
08090000 
O820C0CC 
08110000 
08120000 
0813000C 
08140000 
08150000 
08160000 
08170000 
08180000 
08190000 
08200000 
08210000 
08220000 
08230000 
082400CC 


081600 05 
081700 05 
081800 05 
081900 05 
082000 Bhs 
082100 05 
082200 05 
082300 05 
082400 OS 
082500 05 
082600 05 


FILLER 
A012A-FROM-L 
ETLLER 
AGizZe-TO-L 
PRecbeR 
LO40-L 
FILLER 
K024-L 
FILLER 
CC=L 
PoULbER 


Plex (4). 
PIG. . 

Paea (6)... 
PLeex. 

Pie (4). 
ELGy 2 C6).. 
Pug. ¢5):. 
PLE UAXKX. 
Pre x20): 
Peer. 

Pe ex 1250)" 


08250000 
08260000 
08270000 
08280000 
08290000 
08300000 
08310000 
08320000 
08330000 
08340000 
08350000 


OBL EOD ® & FR OO rr OO IOI kok koi rok iro ror ior ot rrr rir 908360017 


OBLEOOR ERR EKER RRR ee Ree er ee ee rw ee we 3700] 7 


081700 01 WS-N-REC. 


08180C 05 
081900 

082000 

082100 

082200 

082300 

082400 

082500 

082600 

08270C Os 
082800 05 
082900 05 
083C00 os) 
08310C CS 
083200 05 
083300 C5 
08340C 05 
083500 OS 
083600 05 
083700 05 
083800 05 
0839C0 05 
084C00 05 
084200 05 
084200 05 
C84300 CS 
08440C 05 
084500 05 
0846CC 05 


IM-HDR=N. 


Op SMP LEB SSN 
DOS IM-REOR-—2D-N 


DUS SHDR-LEC-—\ 
10° HDR=FPGC—-N 


1s @ 
10 
10 
10 


HDR-F=-REL=N 
HDR-NIIN-N 
PRINI-COvE -N 
SEC-DATA=N 


PPR-KOOI1-IN 
FIULER 
PPR-KOO2-IN 
EEELER 
PPR~-ACO1-IN 
PILTLER 
PPR-AC12A-IN 
FILSER 
PPR-KO17-IN 


FILLER 
Freeaol i=in 
FUE 
PPR-KO18-IN 
FILLER 


PPR-AOI4A-IN. 
DOS SA01 4B=E=1h 


10 AOI14F-IN 
10 AO0l4G-IN 
PLLA 
Pree U24—a.. 
FLUEEER 
PPR=-KGZ6-IN 
FULGER 


O8SLTOOX RT RHR Re eee eee ee Ke KK KOR TL OOL 7 


O85O0C ret eee RR Ree ee eer eK EHH TIOOOO 


O8600C ttt Hee Ree KEKE KER ERE KEKE KK EKKEOOTIOOOCS 


08610C Ci wWwS- 
086200 bys 
08€300 

0864CC 

086500 

086600 

086700 

086800 

086900 

087000 

O87 TOtGe => i RST 
087200 CS 
087300 0S 
087400 05 
C8750C 05 


PaKEG: 
IM=HDR-P. 


10 IM-FILE-ID-P 
10 IM-REOR-ID-P 


10 HDR-LRC-P 
10 HDR-FGC-P 


10 HDR=-F=|REL=-P 


10 HDR-NIIN-P 


10 PRINT-CODE-P 


10 SEQ-DATA-P 


LIONIIN ENTRY OF FIRST 


PILLEER 
DOLTE=1ST 
FILLER 
DOL6A-1ST 


O83s800i7 

08390017 
PICuA tS). 08400017 
PLC aXx Cl): 08410017 
PrGeAnK. 08420017 
Pre xX (4). 08430017 
Vee Soe 08440017 
PiG xX (9): 08450017 
PIC. x. 08460017 
Pree (20). 08470017 
egies =) 10S C84800i17 
Pile xs 08490017 
Pre -xA(14).. O85C0017 
gna Oe O8Si0 Ca 
Pile KKK. OSS 200i 
PG o Kr. 0@S530017 
POG GAs 08540017 
Ele xX. O8Ss7Ge 
PIC X(6). 08560017 
San G97, Gre 08570Ci7 
0S, WORD es 08580017 
PIC Xs. 08590017 
PIC Oo 0o):. 08600017 
RIC UK. 08610017 

08620017 
Pee 4 08630017 
PiGak. 08640017 
PLCeX.. OF oF Fs) 8/830, 
PECeX. 08660017 
PLC XXX « 08670017 
PLC ex: 08680017 
PIC XA. 08690017 
Bre Ato 6). 08700017 

08740000 

08750000 
Pe ao. 08760000 
PIG X{7). 087700C0 
Pie exis): 08780000 
Pix t4)).c 08790000 
PIGeX. 08800000 
Plex (9). 08810000 
Pic xX. 08820000 
Pew x (20). 08830000 
PRINT LINE*** 4 eee kee eke ewe eke eee ORR ZOOOO 
Bie G2): 08850000 
Piece (2): 08860000 
Pre xx: 08870000 
Pile yo? 08880C00 
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087600 Don DULEB=1 S57 Pe 2%. o0gg9000c 


087700 Go). TEEER Pics x (2). 08900000 
re OFCOND nL Nitin ENTRY OF FIRST PRINT LINE**** +8 ewan ew ews wees 08910000 
0879900 CS] Dere—2-1ST Pieex (9). 08920000 
088000 OS EELLER Pre XXX. 08930000 
088100 OS SCicA—2-1ST Peas 9), 08940000 
088200 Doe vetoe—2—-157 PIG xX. 08950000 
088300 05 FILLER Piece (9). 08960000 
See eA) NO IN ENTRY OF FIRST PRINT LINE***** <0" "*exwew ene eee *08970000 
088500 05 DO16-3-1ST Eeearte( 2)) 08980000 
088600 OS FLereR ELGexKx. 08990000 
088700 SoeDUweA-so-istT PIic.99'. 09000000 
088800 05 DOTeEB=3-i1ST Pic xX. 09010000 
088900 SSF LULER Pre exX(5)i. 09020000 
meri = FOURTH AG) NIIN ENTRY OF FIRST PRINT LINE******* eee ese cesses = ¥ 009030000 
089100 US DUNG —4= 157 Elem (2). 09040000 
089200 OS FILLER PIC XXX. 09050000 
089300 C5. OA —4—15T Pico. . 09060000 
0894C0 O5 DO16B-4-1ST PIG x. 09070000 
089500 OS PILEER PTGe* (5) . 0908000C 
eee or here Al? NiIN ENTRY OF FIRST PRENT LINE******** exes see sxe xte 090090000 
089700 Comoro o—- 1571 PIC rx (2). 09100000 
089800 OS P LELER PIC AXA. C93100C0 
089900 US DOL6A=5-i1S~> Pate. 09120000 
090000 Co DULeE— o-7S) Pre x. 0913000C 
090100 Coen er cen Pree x (30). 091409000 
ene ROT ere ENcRY Of 2ND PRIN. LINE** ***** seen ewee reese ees * 007 S000C 
090300 O05 DCI6-2ND Bre A(S).. 09160000 
090400 OS; PEELER PEC AXA 09170000 
090500 CS DO16A-2ND Pics? .. 09180000 
O090€00 OS SOL eB-2ND PIG xX. 09190000 
090700 OS EF iacER PIG x (5). 09200000 
eee SO CO. cen math ENTRY OF .2ND PRIN] LINE***** 3 eee ae teeters ee we ee OCOZI000C 
099900 05 DO1LE-2-2ND Bee Ko). 09220000 
091000 Det reeeER Pe eas 09230000 
Go7100 O05 DO1E€A-2-2ND P1e-o9. 09240000 
09120C OS DOLCE —2-2NP PLEX. 09250C00 
09130C OS) Pier PiGex (oS). 0926000 

eee RO heen ENTRY OF O2No ree eliNe "= ee te eee a eee eee ee 9270000 
091500 U7 U0Me-s-ZND ie) Oe an ee O0928CCCO 
091 €00 OS 45 PCEER PIC XXX. 0929C000 
O81 700 O55 5D016A-3=2ND Pie. 09300000 
0912 80C O05 DO16B-3-2ND ELC Xx, 09310000 
ee o0C CS PE LULER Pie x (5)-. 09320CCC 
fete DUR Tne At NEIN ENTRY OF ZNDSPRUNT LINE * =" * 806 eee ee rte ere ss ee OO 330000 
092100 Do eeu c- 4-2 cu PIE x 2)-. 0934000C 
2200 OSeFiI LEER PIC AAX- 0935000C 
092300 U2 4b01 6A] 4-2NC PIC 99). 09360000 
0924CC O03 DO16B-4-2N5 RIC x. 0937000C 
092500 UoeriLoER PLCS). 09380000 
Peete SPP remele NIN ENTRY OF V2N ee PRN ge 1 NE ORS tm Riots a ee ee ee 09597000 
09270C Deel e—o—2N. Bae x9): 09400000 
09280C Osa FILLER PIC XARA. 09410000 
o92900 O05 DO16A-5-2ND Bre 99), 094200C0 
093000 PS DOLeER=—=—2hD Pigs xX. 09430000 
093100 05 Filler Pee X(30)-. 09440000 
eee PRS TOALE ONZIN ENTRY OF OSkho PRin: LUNE. s**t 2s ee ee eee ess 094590000 
G33300 05 DO1E-3RD Paeax (9). 09460000 
093400 Ooer it LLER PIC XXx. 09470000 
093500 O05 DO16A-3RD PiGea.29 . 09480000 
093600 OS DO1EB=-3RD PIC x. 09490000 
093700 Coa LiELER Pier (5), C9500000 
eee SECONC ALT NIIN ENTRY OF 22002 2N 1 INE* ** * 82 eee eee eee ee es * 09570000 
093900 05 DCLi€-Z=-3RD Poe (90, 09520000 


11] 


094000 05 FILLER PIC XXX. 09530000 
094100 05 pO16A-2-3RD Ipc lees 09540000 
094200 OS DOlesh=2-=3RD BiG x. 09550000 
094300 O05 FILLER Picex(>). 09560000 
094400***THIRD ALT NIIN ENTRY OF 3RD PRING LINE** ****** 38 | ee 
094500 03) PO1e—-2-3kD Poe x(9). 09580000 
094600 OS FILER PIC XXX. 09590000 
094700 05 DO16A-3-3RD Pie 99. 09600000 
094800 05 DO16B-3-3RD PIeex. 09610000 
094900 OS er Peer Pre x (5). 09620000 
095000***FOURTH ALT NIIN ENTRY OF 3RD PRINT LINE********** "= % = ss 5% 3 *** "(90 ee 
095100 O05 DO16-4-3RD PLEA (9). 09640000 
095200 OS FILLER PIC XXX. 09650000 
095300 05 pDOQ16A-4-3RD PC 4-915). 09660000 
095400 OS DOW6B—4-SR0D PIC 2. 09670000 
095500 OSE I LLER PICA (2). 09680000 
095600***FIFTH ALT NIIN ENTRY OF 3RD PRINT LINE*** ***** *™ = ** 055 oe 0 
095700 O05 DOL6=5=3RD Pee (2). 09700000 
095800 0S FIELER PIG AAA. 09710000 
095900 O5=D016A—s—ake Pre. 39. 09720000 
096000 O05 DO16B=5-3RD PiGyx. 09730000 
096100 05 FILLER PECen (28). 09740000 
ODE QOD ® * mw Rm Re ee OO Or rr Or Oe rrr rrr mre O75 90000 
096300 01 WS=K-REC,; 09760000 
096400 O5 IM-HDR-R. 09770000 
096500 10 IM-FILE-ID=-R Pix). 097890000 
096600 100 REOR—1 D-K Joe Sl Gay ars 09790000 
096700 10 HDR=LRC-R Pie eA). 09800000 
096800 TBO Sense aes! Page, (4). 09810000 
09690C JUSEDR-F -RE ik PIG SX. 09820000 
09700C 10 HDR-NIIN-R Picex (9). 09830000 
097100 10° PRINT=-CODE-R PIC x. 09840000 
097200 10 SEQ-DATA-R Pie eZ 03: 09850C00 
O973007"**FIRST APPELENTRY OF 1S? LINE® *% * 0% 30 5 ees eee 
097400 05 DOO9-1ST Pile ex(1 0). 09870000 
097500 03 PIELER Picy Xx. 09880000 
097600 O35 DOOSA-1ST FIG xX. 09890000 
097700 OD F PELE jsgi be  ae 099900000 
09780C O35 DO1I-1ST Prego C6). 09910000 
097900 OSePF ICE 1 OES ah ela 09920000 
098000 OSS ORs — isi PIC 999. 09930000 
0398100 O05 FILLER PIC x. 09940000 
098200 O590024a—151 Pace AX. 09950000 
098300 O05 FILEER Pee ea tO). 0296000C 
098400***SECOND APPL ENTRY OF 1ST PRINT BENE*** * > * = * 368 ee eee 
098500 05 DO09-2-1ST Prax C10) 09980000 
098600 O52 Ff EULER Bie AR. 09990000 
098700 05 DOOSA-2-1ST BEC TK. 10000000 
098800 OD FALEER Plex. 10010000 
098900 OD DU2i=2-15ST PlGre (bos. 10020000 
099000 USF LLGER PIC 04)". 10030000 
099100 03 F018-2-1ST Ie Gel eis) - 10040000 
099200 OS? CELER [eBUlGis oe 10050000 
099300 05 D013 =—2=1S7T PIC XxX. 10060000 
099400 OS7F (LEER Pre x10). 10070000 
099500***THIRD APPL ENTRY OF 1ST PRINT LINE** ** * * * % = ™ = 6% 3 pees eee se ee 
099600 05 DO09-3-1ST Pie xA(1 0). 10090000 
0997C0 OS“F LLLER Paan &- 10100000 
099800 05 DOO9A~3-1ST Pigs. 10110000 
039700 Uae LLLER PLE A. 10120000 
100000 05 D011-3-1ST (Ie Sie 10130000 
100100 OOS EGER PIG (4). 10140000 
100200 05 FO18-3-1ST Pie so 9?" 40250000 
100300 Se FL ELER Pie x 10160000 


rh 


100400 O5-0013-—3-157 PIC XX. 10170000 
100500 05 FILELER BUC exX(15) 10180000 
eer? TRST APPL ENTRY OF 2ND PRINT LINE*******eexwe evan eee eaeene eee *) 0190000 
100700 05 DOOS-2ND PICGexti0). 10200000 
100800 Oo FILLER Jedd GO. 10210000 
100900 05 DOO9A-2ND PIC. 10220000 
101000 USerLLEER PlCok. 10230000 
101100 O05 BDOlI=2ND PIC 96): 10240000 
101200 0S FILLER PIG X(4). 10250000 
101300 OS Pols —2Np PIG 999. 10260000 
101400 OSVELLELER PIG Xx. 10270000 
101500 05 00r3-2Np PIC XX: 10280000 
101600 O05 FILLER Pie x (10). 10290000 
meee * SECOND APPL ENTRY OF 2ND PRINT LINE********* eeu tetew ee eaeyn ese #10 300000 
101800 05 D009=2-2Np Bae x (10). 10310000 
Ose 00 Do ELLER Pre XX. 10320000 
102000 05 DOO9A-2-2ND Pic xX. 10330000 
102100 (Se, PT LLER Pic x: 10340000 
102200 Doe> oil —2-2N Dp Pre 9 (6). 10350000 
102300 05) F PULLER Preys (4). 10360000 
102400 OS) F Olle —2—2ND FiGe 72. 10370000 
162500 US SFILEER PLC yx. 10380000 
102600 O05) POl3=2=2ND PiC Xx. LOS SC000 
102700 OS FILLER PIC X (103). 10400000 
eeeperie RO APPLOENDIRY OF 2NO° PRINT LINE****** 208 eee ee ee eee ee ee * 1 0410000 
102900 05 DO09-3-2ND eet Oe 10420000 
103000 05° FILLER PIG XxX. 10430000 
eo s10C BaP DOC SA-—3-2ND PIC x. 10440000 
Hes 200 Dour LLEER PLC ok. 104500C0 
103300 05 DOia—3-—2Np PL Gre9(6).. 10460000 
103400 0S) Seber PLe 304). 104700060 
103500 05 FO18-3-2ND Pee Ge oi 2 10489000 
103600 OSer TEER PRGr oe. 10490000 
103700 05 DO13-3-2ND PIC UR. 10500000 
103800 OS FILLER PIC X01 5)- 10510000 
meer0C™**FIRST APPL ENTRY OF 3RD DINE ee ee ee ee eee OS 20000 
104000 05 DOO9-3RD PLle A120). 10530000 
104100 05 FILLER PLC AX 10540000 
104200 05 DOO9SA-3RD BIClk: 10320000 
104300 OSTvFI LEER PiLCex: 10560000 
104400 05 DO11-3RD Pe 2106) a. 10570000 
104500 Uo) ET LLER Rae x (4) 10580000 
104600 Joan Clo —Sh0 Pre. ooo, 10590000 
104700 US CLLER PIG x. 1060000C 
104800 US5bC13=3RD PEC XX: 10610000 
304900 Coe LEGER PLC ox ClO). 10620000 
meme *SECOND APPL ENTRY OF 3RD PRINT LINE**********"exeuweakuwewees es 10690000 
105100 Gone oUg-2- 3D PEC x (10): 10640000 
HOS200 GSS EILLER PECLAA 10650000 
953500 ome ek-2Z-I3h PLC ix 10660000 
105400 OSE TELLER Pic x. 10670000 
105500 Uas el l-2-3RD Pe SoG): 10680000 
105600 BS eFILLER PEGEX Ca). 10690000 
105700 OS FO018-2-3RD PIC. 999. 10700000 
105800 GS] FILLER PLGrx. 10710000 
105900 Cons —2—- IRD PTC RA. 10720000 
106000 Geer DULER PICe Gey: 10730000 
106100***THIRD APPL ENTRY LINE*****¥ teen eeee kerk erence e ew) IANO O0 
106200 05 DOO9-3-3RD PIG OX C10}. 10750000 
106300 OS EIULER PIG XX. 10760000 
106400 Gos PCUSA—3-3RD sa @ Ga 10770000 
106500 05 FILLER FIC Xx. 10780000 
106600 057 0011-3370 PIG 9'(6)< 10790000 
106700 GS FIELER PIG %:(4). 10800000 


leks 


106800 
106900 
107000 
107100 


OS FO1s—s—3kD 
OS BIEL eR 
OS (DOs =3=3R0 
O05 PILEER 


LOT ZO OR ERE KEKE KEKE KEN EKER EEE WHE KKK KEKE NEO EER EREKEKE KEK RX EY] ORS OOOO 


PEC 
PIE 
PIC 
Pane 


SETS 
Xx. 

XX. 

a eT 


10810000 
10820000 
10830000 
10840000 


LOT3SOOR ERE RRR RRR KKK KEKE KKK KK KKK KEE KEKKEEK KKK KKKKKEKK) ORB EDOD00 


Wo-T=hEC. 


10740001 


107500 
107600 
107700 
107800 
107900 
108000 
108100 
108200 
108300 
108400 
108500 
108600 
108700 
108800 
108900 
109000 
109100 
109200 
109300 
109400 
209500 
109600 
109700 


05 


05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 


IM-HDR-T. 
TO) IM=FILE-1D=T 
LO” IM=REQR=2D—1 
TO BDR-LERC-1T 
10 HDR=-FGC-T 

LO GbR) heed 
10 HDR-NIIN-T 
TORR UN =eOpe-—T 
10 SEQ=DATA=T 
BB-K002-K020-IN 
ELLER 
BB-K036-IN 
FILLER 
BB-KO2Z4-IN 
FILLER 
BB-K022-IN 
FEELER 
BS=025-1N 
FILEER 
DO-NO-sUS-IND-IN 
ELELER 
BE-KO26-IN 
FILLER 


Ee 
Pre 
Pie 
BIC 
Pre 
PIC 
REC 
Pic 
Pic 
Ric 
Pere 
PAKS 
Parc 
Pie 
Pie 
PPC 
BIe 
Pic 


Pale 


Pic 
PIC 
Pie 


X(5). 
X(7). 
XXX. 
X(4). 
X. 
X(9). 
X. 
X(20). 
M15) Gs 
X. 
aS): 
X. 
XXX. 


ASS Gye 


10870000 
10880000 
10890000 
10900000 
10910000 
10920000 
10930000 
10940000 
10950000 
10960000 
10970000 
10980000 
10990000 
11000000 
11010000 
11020000 
11030000 
11040000 
11650000 
11060000 
11070000 
11080000 
11090000 
11100000 


LOGBOOK RRR RRR RE Rw RK KKK EER KK RK KEK KR RK KKK KH TT LTT OO00 


LOSS00™® ® © & Wo ee ee ork kok or kr ro rotor kro to rotor orrrmrintnerse% 11120000 


110000 O01 


110100 
1.162010 
110300 
110400 
110500 
110600 
110700 
110800 
110900 
111000 
111100 
fii260 
117300 
111400 
Li LS00 
LT L600 
iia talea 8 
111800 
111900 
112000 
112100 
112200 
PIZs00 
112400 
Li2500 
112600 
112700 
112800 
112900 
113000 
113106 





KWo= 


05 


05 
05 
CS 
05 
05 
05 
05 
ois: 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 


VSREG. 
IM—ADR=V 
10. IM-=FILE=i1D-V 
eel M-REOK- luv 
10° HDR=-LRC-V 
10 HDR-FGC-V 
OSD R-- Rel J 
10 HDR-NIIN-V 
10 PRINT-CODE-V 
TOSS SEC-DATA-—V 
COs5=IN-i 
GO38-IN-1 
FILLER 
DOOi-IN-1 

PE oGeER 
C03o-I1N-2 
CO38-IN-2 
FILLER 
DOGl-=IN-—2 
FPITELER 
CO35-IN-3 
eosc-i1N—3 
FILER 
DOO1-IN-3 
FIDLER 
CO35-IN-4 
CO38-IN-4 
PLDLER 
DOOI1-IN-4 
FILLER 

Ev 35-IN=5 
EUSG-IN=5 


ue 
PLC 
Pie 
Pane 
PLE 
ree 
Bag 
Pe 
Pane 
Peake 
Pic 
re 
PIC 
Bic 
Paice 
Pre 
PIC 
ue 
Vega @ 
PIC 
Pic 
Pit 
PIC 
PIC 
Bie 
PIC 
Pace 
BEC 
Pie 
Pre 
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KS) 
Pa ee 
XXX. 
x4). 
oe 
X(9). 
X. 
X(20). 
7k Ga ae 
Xie 

X. 
M32) 
X. 
Coals 
X. 

Se 
Meo) 
» ee 
X(3). 
X. 

X. 
AUS2) 
X(6). 
lee) a 
aie 

X. 
ms) 
Kes 
X(5). 
a 


11130000 
11140000 
11150000 
11160000 
11170000 
11180000 
11190000 
11200000 
11210000 
11220000 
11230000 
11240000 
11250000 
11260000 
11270006 
11280000 
11290000 
11300000 
11310000 
11320000 
11330600 
11340000 
11350000 
11360000 
11370000 
11380000 
11390000 
11400000 
11410000 
11420000 
11430000 
11440000 


113200 
123300 
113400 
P3500 
113600 
113700 
113800 
3 00 
114000 
114100 
114200 
114300 
114400 
114500 
114600 
114700 
114800 
114900 
P5000 
115100 
i200 
iis 300 
115400 


05 
0S 
05 
05 
Ors, 
05 
05 
ays) 
05 
05 
05 
05 
05 
05 
05 
O05 
05 
05 
05 
05 
O05 
05 
OS 


PILEER 
DOO1-IN-5 
FILLER 
CO35-IN-6 
SO32-IN-¢ 
PLELER 
DOO1-IN-6 
PILLER 
CO35-IN-7 
CO38-IN-7 
FILLER 
Coo l=IN=7 
FILLER 
GU5--iIN-c 
CUSG-IN—6 
FILLER 
DOOT=IN=8 
FILLER 
CO35-IN-3 
SO2c-1N-7 
FILLER 
BOCl—-i1N-2 
FILLER 


Pie 
Pie 
ake 
1S 
PIC 
Pi¢ 
Pre 
PIC 
Fie 
Pale 
Pre 
Ee 
ric 
PIC 
PIC 
PIC 
PI¢ 
Pale 
Ee 
is JUG 
PIC 
Bae 
ELEC 


xX. 
Keo yg 
Ke 
Ge 
X. 
x. 
K(32).. 
x6). 
KGS). 
ar 
x 
X (32). 
» er 
X(5). 
a 
xX. 
Wh ae 
x 
x (5): 
he 
X. 
¥ (32). 
X (6). 


11450000 
11460000 
11470000 
11480000 
11490000 
11500000 
11510000 
11520000 
11530000 
11540000 
PissG000 
11560000 
11570000 
11580000 
TVS3e00 
11600000 
11610000 
11620000 
11630000 
11640000 
11650000 
11660000 
LI67O000 


LISSOOXRR RRR REE KKK kere eee eee Ke KKK) |] ER OOOO 


LISECOOK KR RRR EKER EKER ee KEK KK KKH) TEGO OOD 


me5700 Oi 
158 00 
> 200 
116000 
116100 
mine 20 6 
116300 
1164C0 
116500 
116600 
6 700 
116800 
e.900 
mee O00 
00 
Be 2 00 
ta? 300 
117400 
117500 
11760C 
700 
117800 
117900 
118000 
esl Co 
118200 
118300 
118400 
Es 500 
118600 
118700 
118800 
i178 900 


Ge 
Pile 
PIC 
PIE 
Pic 
PIE 
RIC 
eke 
eae 
Pic 
Bre 
Pac 
PC 
Pic 
Pic 
PIC 
Ric 
Pee 
Fic 
Pe 
BiG 
Pee 
ee 
Pic 
Ue: 
ye: 
Pic 
rag 
eG: 
PIC 
Pic 


eS). 
X(7). 
XXX. 
X(4). 
xX. 
x9) 
Xx. 
X(20). 
XXX. 
X(4). 
ee ee 
X(4). 
X (6). 
X(4). 
AUG }e. 
X(4). 
X(6). 
X(4). 
PG) 
X(4). 
4(6). 
X(4). 
AG). 
X(4). 
x (6). 
X (4). 
Xb) 
X(4). 
X(6). 
X(4). 


RAZCO) 


11700000 
VII COO0 
11720000 
11730000 
11740000 
11750000 
11760000 
11770000 
i17see00 
127390000 
11800000 
11810000 
123820000 
11830000 
11840000 
11850000 
11860000 
11870000 
11880000 
11890000 
11900000 
11320000 
11920000 
11930000 
11940000 
11950000 
11960000 
11970000 
i PSecoCG 
iS 20006 
12000000 
12010000 
12020000 


LLQOOO RRR RR RRR Ee ER eee KEKE KKK HT IO IOOON 


ie to0 01 
119200 
119300 
119400 
7500 


WS-Z-=REC- 

OS IM=-HDR=Z. 
DO” SIM=F ILE-1D=Z 
LOUSSIM-RE ORS ID=Z 
PO SHDR=LReG=Z 
LOD eOR-F GC—Z 
POM HOR-P REZ 
10 HDR-NIIN-Z 
TONS RINT-CODE—Z 
TC SEO-DALA-Z 

USF LELER 

oes s—.N 

oer LEER 

O05 DO95-IN-i 

Gos) EIGER 

05 DO95-IN=2 

05 FILLER 

Oo De9s-1N-3 

omer ULLER 

Con uO2s—-iIN—4 

Gon FILLER 

OSD O9S—-IN—-5 

O50 eo ELER 

Donoso Nb 

Does DieeeR 

Come O goa Ny 

Coe rl LLER 

05 DO9S-IN-8 

Glee EL LLER 

O05 DO95-IN-9 

Goer LULER 

Doe DOSS=IN=10 

OS: 7-FTLLER 

Wo-Z2-h0e. 

OS IM-HDR-Z2. 


10 IM-FILE-1D=22 
10> TM-REOR-1D-—Z2 
PO eHDR-LRe—-Ze 


|s2 ee 
Pig 
Bi 


1S es 


gle) Le 
X(7). 
XXX. 


12040000 
12050000 
12060000 
12070000 
12080000 


179600 
119700 
119800 
Pi3 300 
120000 
120100 
120200 
120300 
120400 
120500 
120600 
120700 
120800 
120900 
121000 
121100 
121200 
121300 
121400 
121500 
T2600 
121706 
121800 
1219006 
122000 
122100 
122200 
222500 
122400 
22500 
122600 
122700 
122800 
122900 
123000 
123100 
LASZ0C 
123300 
123400 
123500 
123600 
123700 
12380C 
123906 
124000 
124200 
124200 
124300 
124490 
124500 
124600 
124700 


LO HDR-hGe—22 
TORHDR-f —RELS 72 
10 HDR-NIIN-Z2 
10 PRINT-CODE—Z2 
TOFSEO-DATA S22 
DO93=IN-=Z2-1 
Deg Na Z2- 
DO094-IN-22-2 
DOG4-INezz-3 
DO94-IN-Z2-4 
DO94-IN-22-5 
DO094-IN-22-6 
DO94-IN-Z2-7 
DO24-I1N-Z2-8 
DOS4-IN-Z2-4 


HO34-IN=Z22=1.0 


DOss-1N-—22—2 


DO95-IN-Z2-1 


DOYs-2N-22-2 


DOS S-Ni 22-3 


DO9S-IN-Z2-4 


DO95-IN=-Z2=5 


DOSS-IN-Z22-6 


DO95-IN-Z2-7 


DO9S-IN-Z2-8 


DO9S-IN-Z2-9 


DO95-IN-22-10 


PIC 
BLS 
PIC 
Ze 
PLC 
PIC 
ae 
Pale 
PLC 
PIC 
Pac 
Pie 
PIC 
Le 
Pic 
PIC 
Pie 
Ine 
Pee 
Pee 
ELC 
Pac 
Pre 
Bais 
Pie 
FIC 
Pi¢ 
Pic 
gp 
PIC 
Pig 
Pile 
PIC 
PIC 
Pic 
PIC 
PC 
BiG 
Ge 
Bae 
PEC 
ECC 
ELE 
Ie 
Ee 
PLC 
PIC 
Poe 
PLC 
PLE 
PIC 
Pre 


X(4). 
X. 
X(9) . 
X. 
2 ale Be 
XXX. 

X (4). 
ASS 
X(8). 
RK. 
X(8). 
XX. 
A(8). 
XX. 

X (8). 
XX. 
X(8). 
XX. 
X(8). 
XX. 
X(8). 
XX. 

X (8). 
XX. 
ACC. 
XX. 

X (8). 
XX. 
ALG). 
X(4). 
X(5).. 
XX. 
X(4). 
X(6). 
X (4). 
X (6). 
X (4). 
At). 
X(4). 
X (6). 
X (4). 
x (6). 
X(4). 
KG). 
X(4). 
m6). 
X(4). 
Kor) ie. 
AEE 
X (6). 
X(4). 


CESS. 


12090000 
12100000 
12110000 
12120000 
12130000 
12140000 
12150000 
12160000 
12170000 
12180000 
12190000 
12200000 
12210000 
12220000 
12230000 
12240000 
12250000 
12260000 
12270000 
12280000 
12290000 
12300000 
12310000 
12320000 
12330000 
12340000 
12350000 
12360000 
12370060 
12380000 
12390000 
12409000 
12410000 
12420000 
12430000 
12440000 
12450000 
12460000 
12470000 
12480000 
12490000 
12500000 
12510000 
12520000 
12530000 
12540000 
12550000 
12560000 
12570000 
12580000 
12590000 
12600000 


L248 OO% % RRR RR RR OO OO OO RO Oe or ek ke kee ew TIAGO O* * 


RECORDS 


‘12620090 


L25 000% ® & & ee wm ee OO OOO Or ro kk roo to etree 12630000 


2S LOOM Cs 
125200 
TZos00 
125400 
125500 
125600 
125700 
125800 
125500 


PRN =COOr =i 


OS t FILLER 
O05 

O05 FILLER 
05 

05 FILLER 
05 

05 FILLER 
05 

OS FILEER 
05 

O05 “FILLER 
O05 

OS ST ELELER 
O05 

05> FILLER 
05 

OS: “PIL LEER 
O05 

05 FILLER 
OS 

O05" 2 TELLER 
O05 

Us) Bi LEER 
OS SE ELLER 
O05 

US “FIPELER 
05 FILLER 
05 

OS) “FILTER 
05 

OS FILLER 
05 

O5 #FI LEER 
O05 

OS “FILLER 
OS 

05) Fi LLER 
05 

OS FILLER 
05 

Oo FP TEER 
05 

O57 SEILER 
OS 

OS -F ELLER 
05 

O30) EGER 

OUTPUT 

OUT=REG—1. 
OS.) Desep—1 
OS 

CS 304s-1 
05 c016-1 
05 c0l2-1 
O05 BO67E-1 
05> S007 -1 
05 co0os-1 


BIC 
Pic 
EIG 
Pie 
ELE 
PIC 
ELC 
Ere 


116 


wC9)c 


99 VALUE Ol. 


el oy) ae 
> te 
212) 
X. 
X. 
XX. 


12640000 
12650000 
12660000 
12670000 
12680000 
12690000 
12700000 
127109000 
12720000 


126000 O05" BOSS—1 Puce Gii..2 9. 2s 0.000 


126100 DS) -GO04=1 PG lec)... 12740000 
126200 05 BOO2B-1 Pie XxX. 12750000 
126300 Oo COCTA=1 Pre ACA). 12760000 
126400 05 cO01B-1 Pig ex. i274 0000 
126500 ComeccCs—1 PIC TAX: 12780000 
126600 03 CO0O03A=1 PLG hs 12790000 
126700 Ome co42-1 Pre 44). 12800000 
126800 05 DO10-A-D-1 EUGpex Co): 12810000 
126900 Comeo 2B PIG Xx. 12820000 
127000 05 D014A-1 FIC XX. 12830000 
127100 UoeecUOS—i Pa Kans 12840000 
127200 05 BO0O01-1 PLC. X15) « 12850000 
e27300 05 BO11A-1 Pi Gan oo. 12860000 
127400 CS mv O2oDEr-E0ed—1 PIC A{4). 12870000 
127500 05 c003B-1 Pe Xs 12880000 
127600 G5. *8053-1 Ae ES ae 12890000 
27700 OS af LeEER PIC X(36). 12900000 
L27BOO® ® © mm ee ee er rr rrr ror ror rrr rrr kotor tor ri rire 19910000 
M2es00 01 OUT-REC-2. 12920000 
128000 05 DO46D-2 Pre x (9). 12930000 
iz6 100 05 PRINT-CODE=-2 PIS 99 VALUE 02. 12940000 
28200 05 A005-2. 12950000 
26300 10— 2005-2 —™ PIC Ox. 12960000 
128400 10 AQ0Q05-2-N PuGeao 72. 12970000 
128500 OS AOOSA-2. 12980000 
128600 10 AOOSA-2-M PIC eA 12990000 
128700 10 ACOSA-2-N Pie oT.) 13000000 
128800 OS BO074-2. 13010000 
128900 iG BO? 4=2=M Bac xX. 13020000 
129000 iso a—2—N Pee 95). 9 13030000 
2100 05 A011-2 Pre 9(8). 13040000 
129200 Shoe a 01.0) (coe PIC 9.99. 13050000 
129300 O05 pD008-2 Ig (US) IF 13060000 
129400 O> “FILLER PAGux eo). 13070000 
L2950ONK KKK EKER eee eee eer eK KH] IOROOOO 
129600 01 OUT-REC-3. 13090000 
129700 05 DO046D-3 PLC x 3). 13100000 
129800 O35 PRINT-CODE-3 PIC 99 VALUE C3. 13110000 
129900 O05 8B012-B0i2C-3 PIG yIT99. 13120000 
130000 Cae 8012 —s PIG 9.99. 13130000 
230100 O05 FO09-3 PIC) 9.99" 13140006 
230200 Doe DUl2=3 Pa kx: 13150000 
130300 05 DO013C-3 Pa Gok. 13160000 
130400 65°. D120=-3 PIC XX. L131 2C0e0 
30500 95 BO059=-3 JIG lilt) s)e)5 13180000 
130600 GS -f IT LLER PIC x1 C6). 13190000 
L3O7TOORNX RRR KKK EK EKER KE KEE eee eee KK EEE] FIOOOOO 
130800 O01 OUT-REC-4. L322P0000 
30900 O05 DO046D-4 Pre uk 9). 1322000¢ 
31000 Coe e hen. -CODE—4 Pree viorv ALOE. 04. 13230000 
131100*****xexreexeKne eee eKACTIVITY ENTRY LR KKK KKK KKK Kee KKK KK KH IH) IAAOCOOO 
131200 O05 aA001-4-1 PIC xxx. 13250000 
31300 05 BO46A-4-1 PIG (5). 13260000 
131400 O05 AC12A-4-1 PolGa ks. 132700G0 
31500 05 PL-PROG-OST-4-1. 13280000 
131600 10 PL-PROG-4-1-M PIC lX. 13290000 
1.700 10 PL-PROG-4-1-N Pee aoe) ie 13300000 
s1soc 05 CO03E-4-1 Pie IX. 13310000 
131900 05 AOl12-4-1. 13320000 
132000 TOM ACI 2 —4—-1—¥ Pie x. 13330000 
132100 10) AC1l2=4-1-N PIG 337) 13340000 
32200 05 AOQ21A-4-1. 13350066 
32300 TO” -AOZUA=4=) =" PIC xX: 13360000 


iy 


132400 10 AOQ2Z21A-4-1-N PIG 9(6) . 13370000 
132500 05  AC0te-4- a 13380000 
132600 10 AQO8B-4-1-M Plc «Xx. 13390000 
132700 10 AQO8B-4-1-N Pies (7). 13400000 
132800 OS ~ FILLER PIC X(88). 13416000 
LT3290Q RK RRR Re Rok rrr rrr rr ke eR ee eK RK KKK HK) 3420000 
PS3u00> 01 “OUT—REC—>. 13430000 
1 SSuktio O05 DO46D-5 Pre (9). 1344000C 
133200 05 PRINT-CODE-5 PIC 99 VALUE O5. 13450000 
133300 OS) -ROba—5 PIC XXX. 13460000 
133400 05 KO02-L001-5 Pace X (15). 13470000 
13 5a00 05 LOOI1A-5 Pac xX (4). 13480000 
133600 O52 Le22—s5 PIC X(6). 13490000 
133700 05 AO001-5 Fic Xxx. 13500000 
133800 O05 A001-5-2ND PIC XXX. 133518000 
133700 OS me 2eRIG-O17-5 PIC e397). 13520000 
134000 05 CcOO3E-5 ele xX. 13530000 
134100 03S LO03-5 PIG (5)... 13540000 
13420C 0S 2 60s4-5. 13550000 
134300 10 L034-5-M Pica x. 13560000 
134400 10° LO34=-5-N Bie e396). 13570060 
134500 05 AO12A-5 Pic xX. 13580000 
134600 05 AO12A-5-2ND PIC X. 13590000 
134700 Oey SIG izle: PaGa ke 74) x 1360000C 


L34BOOX KKK RRR RR EEK eer ere eee ree ee HH) IE] O00 


134900**** week eee eke keke eke eee eke ee eee ee Kee KKK KK KKK KKK) IEDOO OO 


135000 01 “OUT=REC—<; 13630000 
LSS EOO O05 DO046D-6 Pre x (9). 13640000 
Hehe 6) O35 PRINT=-CODE-6 PIC 99 VALUE O06. 13650000 
L3s5360 OS) ROUT —6 PIC XXX. 1366000C 
135400 O05 K002-6 PIC X(14). 13670000 
135500 O05 AO12A-6 Pic xX. 13680000 
132600 05 K017-6 PIC X(6). 13690000 
135700 05 KOO06-6 PiCGe2 (7). 13700000 
135800 O05 KO0O18-6 PIGs2(3) . 13710000 
133900 O05 K024-6 PGK 13720000 
136000 OS SE TLrer PIC X(90). 13730000 
L361LOOX*** RRR RR ek Or rrr rr rr rk kr kr re kr re kK KK) ITE O OOO 
136200 01 OUT-REC-7. 13750000 
136300 O05 DO46D-7 Pale ex (2))s. 1376C000 
136400 OS) 2h RINT-CObE—7 PLC Joe VALUE OT: 13770000 
136500 05 DO016=-7 PICAX (9). 13780000 
136600 05 DOiI6A-7 PIG 99: 13790000 
136700 O35) DUG — 7) 2 PEG x9) 13800000 
136800 05 DO16A-7-2 PIC 799:. 13810000 
136900 O05 D016-7-3 PIG ex (2). 13820000 
137000 OS. SD01:6A— 1—3 Picea. 13830000 
137260 O05 p016-7-4 PIG (9). 13840000 
137200 O05 DO16A-7-4 PIG. 13850000 
LS 1s OS D0lGc-—/-5 El Cex (9). 13860000 
137400 ODS 220i 6A—7=35 PIG 99. 13870000 
13 /3u0 05 DO016-7-6 PIG X93) 13880000 
137600 05 DO16A-7-6 PIC 92; 13890000 
137700 05 DO016-7-7 PIC X19) 13900000 
137800 05 -DOLCA-7-7 PlG a9 13910000 
137900 05 D016-7-8 PIC X(9). 13920000 
138000 05 DO16A-7-8 PIG 92: 13930000 
138100 05 pD016é-7-9 PIGSX (oe 13940000 
138200 O05 DO16A-7-9 PIc 99. 13930000 
138300 O>  DO016-7-10 Frere (9). 13960000 
138400 O05 DO16A-7-10 PEe e939: 13970600 
138500 OS “FILLER FiG x(19)- 13980000 


L3EB6COOKK KR RR RRR RR rr rr Kirk ak Ke ee eee eK] IOIgNCOO 


136.700 501 


OUT-REC-8. 


118 


14000000 


138800 O05 DO46D-8 Pies neo). 14010000 
138900 05 PRINT-CODE-8 PIC 99 VALUE O08. 14020000 
139000 14030000 
139100******xxxxxwxxeexeee*e XK ADD] TCATION ENTRY LER RRR KKK EK KKK KKK KEK Ke KT AOAOON0 
139200 Os DOO o=—8—1 Ele 0): 14050000 
139300 GS DOl1=8-1 Pre :9:( 6). 14060000 
139400 O05 FO18-8-1 Pic ooo. 14070000 
9500 OS) DUlsee—1 PIC XK. 14080000 
139600 14090000 
1T329700% eX RRR RR KKK HE KRHEKEKKXeADPLTCATION ENTRY 2** 4 RRR RK KKK eK KH HK] AL OOOO 
139800 Oe DOO l—b—2 PIG xX (10). 14110000 
139900 05 pbp011-8-2 Pie, 96) 14120000 
140000 U2 Oe 2 eae SNe 14130000 
140100 Com DOs =8—2 PIC TAA. 14140000 
140200 14150000 
140300****k eek kee ee eEKEKKK ADP] TCATION ENTRY Qe kr keke ee #1 41 E0000 
140400 05 pDO009-8-3 Pig A (0). 14170000 
140500 05 p011-8-3 PIG 9(6). 14180000 
140600 05 FO018-8-3 PIC 999. 14190000 
140700 05 bD013-8-3 PIC XX. 14200000 
140800 14210000 
L4090O% XR RK RRR RK KEKEKEK EK KADDITCATION ENTRY Q¥ kK KR KEK RK KEK RK KR KK KK KKEK)TADIOOONO 
141000 O05 po09-8-4 Pre xO): 14230000 
141100 CSU etl pa Pie 1G) 14240000 
141200 ehs) gO ea J IGE 14250000 
141300 OS a DOEs=—s—< PIC XX. 14260000 
141400 14270000 
14150C0****xk exw aexekeeeekee eK ADDI TCATION ENTRY SRR RRR RARER KER EHR K EKER) ADBOOOO 
141600 0S "DO0S-8-5 Pres x (10). 14290000 
40700 US DOII—8—5 Bae 7Ox(6):. 14300000 
141800 tome Ul oo PLesoo7. 14310000 
141900 GS DO135—B8—5 PIC UKA. 14320000 
142000 14330000 
T42100****xxxxweexxxkexe eee ADD] TCATION ENTRY 6% *%¥¥R RRR K eK) ABAOCOOO 
142200 b> »D009-8—-6 5.182 2. (HO) ie 14350000 
142300 OS D011-8-6 Pace 3(6).. 14360000 
142400 05 FOl18-6-6 Pic 999. 14370000 
142500 05 Dol 8-6 PIC KA. 14380000 
L42600X RR KEKE RRR rr rrr kerr ee eee 1 AIQ00N0 
142700 Uome! Melek Pier x3). 14400000 


L42BO0% FR RRR EEK Ree eK HK TAAL OOOO 


L4290O% KER RRR RE ERE EEK RE Re KEK RK KEKE KT ALIOOOO 


S290 01 OUT-REC-9. 14430000 
243100 O05 bDO4éD-9 Pee 4.9)": 14440000 
143200 O05 PRINT-CODE-9 PIC 99 VALUE 09. 14450000 
143300 05 K002-K020-9 Peek (15) 14469000 
143400 05 KO036-9 PLC 9 (5). 14470000 
143500 O05 K024-9 PIC XXX. 14480000 
143600 O05 K022-9 ELC. XAs 144900CC 
143700 05 K025-9 Pace 299° 14500000 
14380C O05 K026-9 ELG. ex. 14510000 
143900 OS" FILLER PEO X(100)i. 14520000 
1440008 RRR RRR KEE KEKE EKER KEK EK KK KEKE KT AS IO OOD 
144100 14540000 
144200 01 OUT-REC-10. 14550000 
144300 O05 DO46D-10 Pie. -X(9)-. 14560000 
144400 05 PRINT-CODE-10 Pic 99 VALUE 10. 14570000 
144500 14580000 
144600*%** xx Ree Kee eee KKK KET OT REFERENCE ENTRY*****8 RRR RR KKK KKK HK KE KK) ASQOOOO 
144700 14600000 
144800 05 C035-B-C-10-1 PIC X(5). 14610000 
144900 05 C038-10-1 |p ee 14620000 
145000 05 pd01-c004C-10-1 PIG x32). 14630000 
145100 14640000 


Ie, 


L4E5200 KR KR RR ek ee eR ee DNL) REFERENCE 


ENTRY***¥ RRR ERR KEK KKK KKH KEK HE] AES OOOO 


145300 14660000 
145400 05 ¢c035-B-C-10-2 PIC X{5). 14670000 
145500 OS sCOsSe-=10=2 Pic x. 14680000 
145600 05 DOO1-CcO04C-190-2 PICIxt32)-. 14690000 
145700 14700000 
145800 14710000 
LA5S90OKR KEK KEK KKK KR KK KKK EKHK IRN REFERENCE ENTRY****R RK ERE KEKE KEK KK KKK HHH) ATIOONO 
146000 14730000 
146100 03 ~€035-=B-cC-10-—3 Bice (5). 14740000 
146200 US eles —10—4 PiGun-: 14750000 
146300 05 bp001-CO04C-10-3 PiG xX(32). 14760000 
146400 14770000 
146500 © me III OIIIUIIDIIIDIOIGI IG OUUC OOOO rOrninitinint:* 14780000 
146600 14790000 
146700 05 FILLER Pier x 1S). 14800000 
L46BOOKK KEK KR KKK KKK KKK ko ko kr kok kok kok kkk kok kr kor kkk kkk kik eee] 4810000 
146900 01 OUT-REC-11. 14820000 
147000 05 pD046D-11 PUG 2): 14830000 
147100 O05 PRINT-CODE=1 1 PIC 99 VALUE 11. 14840000 
147200 05 p093-11 PIE x{4). 14850000 
147300 05> bOSS-—11—1 PIC X(4). 14860000 
147400 05 p095-11-2 Poe x% (4). 14870000 
147500 05 po95-11-3 PIC x (4). 14880000 
147600 05 pD095-11-4 Bice XC4 14899000 
147700 Jaa Coolio PIC X(4). 14900000 
147800 US DUe5—-11—6 Pee Ktay. 14910000 
147900 U5 =b095—11—7 PIG x (4). 14920000 
148000 05 pD095-11-8 PIC x (4). 14930000 
148100 US eD0g5—-11—-9 PIC AX4) . 14940000 
148200 05 pD095-11-10 PICGsA( 4). 14950000 
148300 O59 FT EGER Pie x485) 14960000 
L148 400% ® © % mm em OO rr Or Orr IOI I III reine toinrinieie 35°71 4970000 
148500 01 OUT-REC-12. 14980000 
148600 05 pD046D-12 PCa nrCo) 14990000 
148700 05 PRINT-CODE-12 PIC 99 VALUE 12. 15000000 
148800 05 pD093-12-1 PIG CA(4). 15010000 
148900 05 D094-12-1 PMG eX C8).. 15020000 
149000 O05 D094-12-2 Pre x C8). 150300100 
149100 OS) 2084-12-33 PIGex3). 15040000 
149200 05 Dp094-12-4 PICeA (8) 15050000 
149300 05 D094-12-5 PIC X(6) . 15060000 
149400 05 D094-12-6 RICE. (3). 15070000 
149500 05 D094-12-7 Pie CS). 15080000 
149600 05 D094-12-8 Pie x (¢). 15090000 
149700 05 D094-12-9 Parc x8). 15100000 
149800 05 p094-12-10 PIG XS). 15110000 
3499900 05 D093-12-2 Boe (4). 15d 20000 
130000 O05 D095-i2-1 PIG x (4). 15130009 
150100 05 D095-12-2 PIG A(4). 15140900 
150200 05 DO095-12-3 Pree x (4)>. 151750000 
150300 05 D095-12-4 PIC X(4). 15160000 
150400 05 D095-12-5 PIC X(4). 15170000 
150500 05 D095-12-6 PIC X(4).. 15180000 
LS9600 05 pD095-12-7 PIC sx :(4)). 15190000 
L50700 05 D095-12-8 Pie x4). 15200000 
150800 05 pD095-12-9 PIC x(4). 15210000 
150900 05 D095-12-10 BieexA(4)- IS 220006 
151000 05 FILLER Pic X. 15230009 
L428 00* ® & % Oe kk kkk kokoro rok OOO ro toric mcr 15240011 
O01 OUT-REC-13. ahs )<73).0) 8a er 

O05 DO46D-13 PIc X(9). 15260012 

05 PRINT-CODE-13 Piece 9. 15270012 

05 A0Q01-13 PIC XAX- loz2680012 
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05 
05 
05 
05 


A012A-13 PIC X. 
AOL4E—12 PIC x. 
K006-13 isis AT) Es 
FILLER PiGex tits ).. 


15290012 
15300012 
loslool2 
Peszo0L2 


TORR OR OORT OOO Orr 8 ort ror ror ror kor iO rrr rrr ror oro s ror rrr rer keer eee) O23 300)7 


L5LLOO*% RRR EER RRR KKK EERE KEK EK EKER KEK KKK Kee KK Eee eee) OVAOOOO 


ioe O0** WS-NEG-ONE IS USED TO CREATE NEGATIVE NUMBERS ¥* 15350000 
LELBOOKX RRR RARER EEE EEE Ee ee ee eee ee ew we) SEO OOO 
151400 01 WS-NEG-ONE PIC S9 VALUE -1. 15370000 
ie 00 15380000 
151600 % % III III III IIUIDIUIDIOIUIDIDIUIOIUIGI ODUCT 5 3.90000 
151700** THESE COUNTERS ARE USED TO HOLD DOLLARS\CENTS AND **1 5400000 
151800** NUMBERS\DECIMALS FOR REDEFINING INTO.A COMPUTATION FORMAT ~* 15419000 
LE1LIOOKR RR REE RR Ok rrr kr ror kok eke eee] OA DO000 
152000 01 WS-FORMAT-COUNTERS. 15430000 
152100 OS HLD-BO55-PRICE. 15440000 
rez2200 10> HLD-BOSS—DOLL Pac 9:06). 15450000 
2500 OG ELD-BOSS-CENTS Pic 93. 15460000 
122400 05 PRICE-B055-HLD REDEFINES HLD-BO55-PRICE 15470000 
152500 Pres ( 6) 397 15480000 
152600 O05 HLED=Geosc-DEC PCs ooo, 15490000 
2000 05 DEC-COO8C-HLD REDEFINES HLD-COO8C-DEC 15500000 
15280C PIe V9: 15516000 
152900 OS  HED-BOl2-CoME. 155200010 
153000 10 HLD-BO12-NUM BIC; 9). 15a30000 
Poo L0C POE CPS Oe 2 -DEc Pace 99). 15540000 
3200 05 COMB-BO12-HLD REDEFINES HLD-BO12-COMB 15556000 
oO 0 PLES V 9S. 15560000 
55400 O05 HLD-BO12F-COMB. 15570000 
ooo 00 Oy ELE e017 -NuUY Pa yan 15580000 
to3600 Ome tL 301 2F “DEG PCa PSS30000 
153700 05 COMB-BO12F-HLD REDEFINES HLD-BO12F-COMB 15600000 
S390 0 Pree 3V9o. 15610000 
513900 05 HLO=€0Z23-CoMeE. 15620000 
154000 10 HLD=C023-NUM PG i4i).:. 15630000 
154100 10 HLD-CO23-DEC Ue Slele 15640000 
1542090 O05 COMB-C023-HLP REDEFINES HLD~-C023-COMB 15650000 
154300 ErGyo (4) 99. 15660000 
e400 05 HLUD-c024-coMs. 15670000 
Boo 00 10 HLD-C0O24~-NUM Pre 3(4). 15680000 
154600 PU Rn UD -ee24—-DEC Pre 9. 1$690000 
4700 05 COMB-CO024-HLD REDEFINES HLD-C024-COMB 15700000 
154800 PIC 9(4)V99. 15710000 
154900 O05 HLD-BO14A-COMB. 15720000 
e500 0 10 HLD-BO14A-NUM Pacer a: 15730000 
5100 10 HLD-BO14A-DEC Pacmag, 15740000 
155200 05 COMB-BO14A-HLD REDEFINES HLD-B0O14A-COMB 15756000 
i500 Pics, 260. 15760000 
i400 O05 HLD-B011A-COMB. LS7 70000 
55500 10 HLD-B011A-NUM Pie. oo. 15780000 
155600 10” HED-BO01IA-DEC Pile 319). 15790000 
i 700 05 COMB-BO11A-HLD REDEFINES HLD-B0O11A-COMB 15800000 
TSa800 Pie 99V 99. 15810000 
152900 05 HLD-B0O11B-COME. 15820000 
156000 10 HLD-B011B-NUM PIG.39:. 15830000 
156100 10 HLD-B011B-DEC RiLG aos 15840000 
156200 O05 COMB-B0O11B-HLD REDEFINES HLD-B0O11B-COMB 15850000 
156300 PIG rosy 3). 15860000 
156400 05 HLD-B010-COMB. 15870000 
156500 10 ~6HLD=BO10-NUM gp Gane Be 15880000 
156600 10) HLD-BO1O0=DEC Pic 9. 15890000 
156700 O05 COMB-BO10-HLD REDEFINES HLD-B0O10-COMB 15900000 
156800 Pre 33V 97 15926000 
156900 G5 LD-B077-COMB. 15920000 
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157000 
157100 
197200 
LS2300 
157400 
157580 
LS7E00 
159700 
157800 
157900 
158000 
158100 
138200 
PS8300 
158400 
158500 
158600 
158700 
158800 
oe 
159000 
15200 
1353200 
159300 
159400 
159300 
1S 9600 
159700 
159800 
PS3300 
160000 
160100 
160200 
160300 
160400 
160500 
160600 
169700 
160800 
160900 
161000 
161100 
161200 
262300 
161400 
161500 
161600 
161700 
161800 
161900 
162000 
162100 
162200 
162300 
162400 
162500 
162600 
162700 
162800 
162900 
163000 
163100 
163200 
163300 





05 


05 


05 


05 


05 


05 


05 


05 


05 


05 


05 


05 


05 


05 


05 


O53 


05 


05 


05 


05 


05 


10 HLD-BO77-NUM PEGso (5). 


10 HLD=-BO77=DEC Elo. 
COMB-B077-HLD REDEFINES HLD-BO77-COMB 
PIe (5) V9. 


HLD-BO77A-COMB. 


10 HLD-B077A-NUM Pic 9 (5). 

10 HLD-BO77A-DEC PIG sor 

COMB-BO77A-HLD REDEFINES HLD-BO77A-COMB 
Pres? (o) V2. 

HLD-B0O77B-COMB. 

10 HLD-B077B-NUM Pare 2 (2). 


10. HLD-BO77B-DEC Fic .3. 
COMB-B077B-HLD REDEFINES HLD-B0O77B-COMB 

PIG 2(5) v3. 
HLD-BO77C-COMB. 


10 HLD-B077C-NUM Eley 2 (5). 
10 HLD-B077C-DEC PGs. 
COMB-B077C-HLD REDEFINES HLD-BO77C-COMB 
PIC 9(5)V9. 
HLD-B0O77D-COMB. 
10 HLD-BO77D-NUM Pies (>). 
10 HLD-B077D-DEC PICeo. 
COMB-B077D-HLD REDEFINES HLD-B0O77D-COMB 
Pres 3(o) V9. 
HLD-BO77E-COMB. 
10 HLD-BO77E-NUM PIG 905). 
10 HLD-B077E-DEC Pico. 
COMB-BO77E-HLD REDEFINES HLD-B0O77E-COMB 
PEG) Vor, 
HLUD-B0I53—PRICE . 
10 HLD-B053-DOLL Piece (Ge 


1G SHED-—B053-—CENTS Pre. oo; 

PRICE-BO53-HLD REDEFINES HLD-BO53-PRICE 
PIC 9(6)V99. 

HLD-A023B-COMB. 

10 HLD-A023B-NUM PG moos 

10° HLD-ACZ3B-DEC Peer oe: 

COMB-A023B-HLD REDEFINES HLD-A023B-COMB 
JUG, bere abe he Be) 

LD-BO1 9A-COMB. 

10 HLD-BO1 9A-NUM PIG 92 or 

10 LD-BO1 9A-DEC PG =i). 

COMB-B019A-HLD REDEFINES HLD-BO1 9A-COMB 
PIC 999V9(4). 

HLD-AO19D-COMB. 

10 HLD-A019D-NUM Pouce. 

10 HLD-A019D-DEC Piles 2 4).. 

COMB-A019D-HLD REDEFINES HLD-=A0l 9D—-COME 
PIC ov eka. 

HLD=A0l 9E-COMB. 

10 HLD-A019E-NUM Pele. oe 

10 HLD-A019E-DEC PIC 94), 

COMB-A01 39E-ALD REDEFINES SHEP —A01 9E-COMB 
PIC 9V9'(4).. 

HUD=80220-COMB.. 

10 HLD-BO22D-NUM Pate 69.9" 

10 HLD-BO22D-DEC PIG ota). 

COMB-BO022D-HLD REDEFINES HLD-BO022D-COMB 
PIC 99V9(4). 

HLD-BO22E-COMB. 

10 HLD-BO22E-NUM PIC 99: 

10 HLD-BO22E-DEC Pic 204). 

COMB-BO022E-HLD REDEFINES HLD-B0O22E-COMB 
PIC 99V9(4). 
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15930000 
15940000 
15950000 
15960000 
15970000 
15980000 
15990000 
16000000 
16010000 
16020000 
16030000 
16040000 
16050000 
16060000 
16070000 
16080000 
16090000 
16100000 
16110000 
16120000 
16130000 
16140000 
16150000 
16160000 
16170000 
16180000 
16190000 
16200000 
16210000 
16220000 
16230000 
16240000 
16250000 
16260000 
16270000 
16280000 
16290000 
16300000 
16310000 
16320000 
16330000 
16340000 
Lésa0000 
16360000 
16370000 
16380000 
16390000 
16400000 
16410000 
16420000 
16430000 
16440000 
16450000 
16460000 
16470000 
16480000 
16490000 
16500000 
16510000 
16520000 
16530000 
16540000 
16550000 
16560000 


163400 
ieeo00 
163600 
ees) 700 
163800 
1639100 
164000 
164100 
164200 
164300 
164400 
164500 
164600 
164700 
164800 
164900 
165000 
65100 
165200 
165300 
165400 
ios. 010 
165600 
165700 
ess00 
165900 
166000 
166100 
166200 
166300 
166400 
166500 
166600 
166700 
166800 
166900 
167000 
671,00 
167200 
167300 
167400 
167500 
167600 
me? 100 
167800 
167900 
168000 
168100 
168200 
168300 
168400 
168500 
168600 
168700 
168800 
168900 
169000 
169100 
169200 
169300 
169400 
169500 
1691600 
169700 


05 


05 


05 


05 


05 


03 


05 


05 


05 


05 


05 


05 


05 


05 


05 


05 


05 


Gies) 


ies) 


05 


05 


0S 


05 
05 


05 


05 


05 


HLD-B0O19C-COMB. 

10 HLD-B0O19C-NUM Pie 999. 

10 HLD=-BOTIEC—DEG Pre 999 . 

COMB-B0O19C-HLD REDEFINES HLD-BO19C-COMB 
Pie 999V999. 


HLD-=BO5S2A-PRICE. 


10 HLD-BO55A-DOLL Pies2 &6).. 

10 HLD-BOSSA-CENTS Pac oo" 

PRICE-BOS55A-HLD REDEFINES HLD-BO55A-PRICE 
BiG 26) Vv 99. 

HED-F 00 7-COMmp. 

10 HLD-FOO7-NUM 2 1G sie 

10>) HLD-F 00 7-DEG Pile oo 

COMB-FOO7-HLD REDEFINES HLD-FO00Q7-COMB 


IS NES 
HLD-FOO9A-COMB. 
10 HLD-FOO9A-NUM Pica. 
10 HLD-FOO9A-DEC PIC 99. 


COMB-FOO9A-HLD REDEFINES HLD-FOO9A-COMB 


PIC 9V99. 
HLD-BO20F-B-COMB. 
10 so p—- S020 -B-NUM PIlC.9:. 
Gy  BLP-Bo2Z0F -B-DEC PIG 9(4).. 


COMB-BO20F-B-HLD REDEFINES HLD-BO20F-B-COMB 
Pic 9V9999. 

HLD-AO1 9F-B-COMB. 

10 HLD-A0O19F-B-NUM PICs: 

10 LD=A019F=-B=-DEC PIC S44 

COMB-A019F-B-HLD REDEFINES HLD-A0O19F-B-COMB 


Pic 9V9999. 
BLD-BO1Z2B-COMB.. 
1G HLD=B012B-NUM Pe eon 
iG. SHLD=BO1Z25—-pEe PiCe3. 


COMB-B012B-HLD REDEFINES HLD-BO12B-COMB 


Pic 799. 
HLD-BO12D-COMB. 
10 HLD-BO12D-NUM eG EN. 
1.0) SHLD=BO012D-—DEC PIC 9. 


COMB-B012D-HLD REDEFINES HLD-BO12D-COMB 

PIC 9V9. 
HLD-B012-B012C-COMB. 
Of sel2 sel 2C-NUM Pic 9: 
10 HLD-BO12-B0O12C-DEC PIc 99. 
COMB-B0O12-BOl12C-HLD REDEFINES HLD~BO12-B012C-COMB 


PIc 9v99. 
HLD-FOO9-COMB. 
10 HLD-FOO9-NUM Pree: 
10 HLD-FOO9~DEC PIc 99. 


COMB-FOO9~HLD REDEFINES HLD-F009-COMB 


PIc 9V99. 
HLD-BO12E-COMB. 
Lo aL D=BolZeE-NUM Piles, 
10 HLD-BO012E-DEC PiGe or 


COMB-BO1ZE-HLD REDEFINES HLD-8012ZE-COMB 
PIC 9V99.. 

HLD-B014C=-$DEC PIC 999. 

DEC-BO14C-HLD REDEFINES HLD-B0O14C-DEC 


PIC V999. 
HLD-A023-1-COMB. 
10 HLD-A023-1-NUM PIC 73(4).. 
10 HLD-A023-1-DEC PIC 399". 


COMB-AO2Z3-1-HLD REDEFPINES HLD-A02Z3-1-COMB 
PLeP (4999. 
HLD-A023-2-COMB. 


eS 


16570000 
16580000 
16590000 
16600000 
16610000 
16620000 
16630000 
16640000 
16650000 
16660000 
16670000 
16680000 
16690000 
16700000 
16710000 
16720000 
16730000 
16740000 
16750000 
16760000 
16770000 
16780000 
16790000 
16800000 
16820000 
16820000 
16830000 
16840000 
16850000 
16860000 
16870000 
16880000 
16890000 
16900000 
16910000 
16920000 
1lé6égZ20000 
16940000 
16950000 
16960000 
16970000 
16980000 
16990000 
17000000 
17 OLOO 00 
17020000 
17030000 
17040000 
17050000 
17060000 
17070000 
17080000 
17090000 
17100000 
17110000 
17120000 
Piiseo00 
17140000 
17 ESOC00 
17160000 
171376000 
L7ILESO00 
17190000 
17200000 


169800 10 HLD-A023-2-NUM PIC 39 (4).. 7216000 
169900 10 H8LD=A0ZS—2—DEC PIc 999. 17220000 
170000 05 COMB-A023-2-HLD REDEFINES HLD-A023-2-COMB 17230000 
170100 PIG 9(4)V999. 17240000 
170200 05 HLD-A023-3-COMB. 17250000 
176300 10 HLD-A023-3-NUM PIiGes (4): 17260000 
170400 10 HLD-A023=-3-DEC PIc 999. 17270000 
170500 05 COMB-A023-3-HLD REDEFINES HLD-A023~-3-COMB 17280000 
170600 PIc 9(4)V999. 17290000 
170700 O05 HLD-BO59=-FRICE- 17300000 
170800 10 HLD-B059-DOLL NSA; 2 C7) ie 17310000 
170900 10 HLD-BOS9-CENTS PIC 99. 17320000 
L7 LOC? 05 PRICE=-B05S9-HLD REDEF INES HLD=-B059=PRice 17330060 
171100 PIc 9(7)V99. 17340000 
L7I1L2Z0O% ®rst 173590000 
171300 01 EOF=-FLAG PIC. Xx 17360000 
171400 * ® * % mm em ae ee ee Or Or OO ok ok inti 6173370000 
171300 17380000 


171 600 * © & me em ee eI OI II II IOI IOI IOI IO IOI Ie ee * 17390000 


171700 PROCEDURE DIVISION. 17400000 


L7V1L8OO% ® & % Re wm I I Ok rk rr rire 9% 17410000 


171900 17420000 
LP 2000 2% OI IOI 9% 17430000 
172100 MAINLINE-CONTROL-ROUTINE. 17440000 
172200 PERFORM INITIALIZATION. 17450000 
Li2300 PERFORM READ-AND=-PROCESS UNTIL EOF=FLAG EQUAL ‘Y’. 17460000 
172400 PERF ORM CLOSE -KROCUlINE. 17470000 
172500 STOP RUN. 17480000 


LIZ 600% & & % RR III IO TOI III III IOI III Mere 34517490000 
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172700 INITIALIZATION SECTION. 17500000 
1723800 INITIALIZE; 17526800 
172900 OPEN: INEUT BiG xX a. 17520000 
ay 610/108. OPEN OUTPUT OFILEI)) OF LLEZ. Cr SEES eee ae 17530600 
17 Sa00 OF LLES; OF ILEG, OrfILE jj = Ob trec. 17540000 
173200 OF ILES, GFILEIO) OPI LE], Ort Lael 2 yore. 17550014 
L73300 MOVE “N° TO EQF=FEAG. 17560000 
173400 MOVE SPACES TO OUT=-REC-1, OUT-REC-2, OUT-REC-3, OUT-REC-4, 17570000 
173500 OUT-REC-5, OUT-REC-6, OUT-REC-7, OUT-REC-8, 17580000 
173600 OUT=REC-9, OUT=REC-10, OUT=-REC=-11, OUT-REC-12,17590014 

OUT=-REC-13. 17600014 
173700 INITIALIZATION-EXIT. 17610000 
1738600 Lp eis 17620000 
LP 390 OF % em OR Ok ok ior nine 91 7G 30000 
174000 READ-AND-PROCESS SECTION. 17640000 

174100 READ-PROCESS. 17374200 READ 
B1OJX1 AT END MOVE ‘Y’ TO EOF-FLAG 174300 GO TO READ=EATI-= 
ROUTING: 
1670000 

174400 IF NIIN-CODE-1) NO NUMERIC 17680C00 
174500 GO TO READ-EXIT-ROUDINE 17690000 
I746Ce== PERFORM ENTITY-SUM-EXIT 17700000 
174700 ELSe 17710000 
174800 IF PRINT-CODE-1SEOUAIia bp. 17120000 
174900 PERFORM PROCESS=-REC=-D 17730000 
175000 ELSE 17740000 
1752010 IF PRINI-CODE=I EQUAL “F’ 17750006 
175200 PERFORM PROCESS=-REC-F 17760000 
175300 BSE 17770000 
175400 Tf PRINT-CODE—1 “BOQUR TS su. 17780000 
17S500 PERFORM PROCESS=-REC-H 17790000 
175600 ELSE 17800000 
175 2460 TE’ PRINT -CODE=1 EQUA I iee. 17810000 
175800 PERFORM PROCESS-REC-J 17820000 
175900 ELSE 17830000 


176000 IF PRINT-CODE-I EQUAL ’L’‘ 
176100 PERFORM PROCESS-REC-L 
76200 ELSE 
176300 IF PRINT-CODE-I EQUAL ‘N’” 

176400 PERFORM PROCESS-REC<N 
176500 ELSE 
176600 iP TPRENE-COpr-T “EGUAL.” P* 
176700 PERFORM PROCESS-REC=P 
176800 ELSE 
176900 IF PRINT-CODE-I EQUAL ‘R’ 
177000 PERE ORME ROCESS -KEC-R 
Jey ene ELSE 
ia 200 If PRINT-CODE-1 EQUAL ‘T’ 
77300 PERFORM PROCESS—-REC—-7T 
177400 ELSE 
77500 [PF PRINT-CODE-1I EQUAL “V’" 
177600 PERFORM PROCESS-REC-V 
72700 ELSE 
177800 [TF PRINI-CODE-1 EQUAL *Z* 
177900 BERE ORM MULTI -“MOE-CHECK. 


17840000 
17850000 
17860000 
17870000 


17880000 


17890000 
17900000 
17910000 
17920000 
17930000 
17940000 
17950000 
17960000 
17970000 
17980000 
17990000 
18000000 
18010000 
18020000 
18030000 


LT BODO & % mm UII II III III III neice 1 BO 40000 


178100 READ-EXIT-ROUTINE. 
178200 EAII. 


18050000 
18060000 


178300 ® © & RR ee Or Or rr rr OI III inicio rimnimimnie%e%e 1 80700006 


ieesoO*ENTITY-SUM-EXIT SECTION. 
eeeio0"ENT—-SUM-EXIT. 
178600* EXT... 


18080000 
18090000 
18100000 


L7B7OO* * & & ow & % ee rk rk rk ook rr ork ror kok rok rrr ok rrr korn rire oe * 121710000 


#78600 PROCESS-REC-D SECTION. 
ieO0 PROCESS-D-REC. 


179000 MOVE TBA U=INPUT=REC TO WS=D-REC. 
2100 MOVE "HER-NEIN-=D TO DO46D-1. 
179200 MOVE 01 TO PRINT-CODE-1. 
toa OO MOVE BO45 TO B045-1. 
179400 MOVE CUS FO COlG=1. 
179500 MOVE G02 ro 7e012—1. 
179600 MOVE BOG7E TO BOG7E=-1. 
179700 MOVE BOO7 TO BOO7-1. 
179800 MOVE G005S@70 CO05-1. 
179900 MOVESEBOSS-DOLLARS=IN TO, HLD=B0S5-—DOLL. 
180000 MOVE —BOSS-CENTS-IN TO HLD-=BOSS-CENTS? 
180100 MOvUPer RICE -BUSS5=HED TC BOSS=i. 
180200 MOVE} C004 TO CO04=1. 
160300 MOVE 80028 TO BOOZB-1. 180400 
TO 
COO1A-1. 18280000 
180500 MOVE COOUTB STO COGIB—1, 
180600 MOVE C003 70, CO0s=1- 
180700 MOVE COO3A TO COO3A-1. 
180800 MOVE=CO42 10 C042-1. 
180900 MOVE) DOLOA=D TO DO10-A=D-1. 
181000 MOVESe028 10 CO28=17. 
181100 MOVE DO14A TO DO14A-1. 
181200 MOVE, GOO TO COU09=1.. 
81300 MOVE BOOl1 TO BOOl1-1. 
181400 MOVE BO11A-NUM-IN TO HLD-BO11A-NUM. 
161500 MOVE BO11A-DEC-IN TO HLD-BO11A-DEC. 
181600 MOVE COMB-BO11A-HLD TO BO11A-1. 
181700 MOVE DO25DEF-E089 TO DO25DEF-E089-1. 
181800 MOVE COOSB TO CO03B-1. 
181900 MOVE B0O53-DOLLARS-IN TO HLD-B0O53-DOLL. 
182000 MOVE BOS3-CENTS-IN TO HLD~BOS3-CENTS. 
162000 MOVE PRICE-BOS3-HED £O BO53-1. 


182200 PERFORM WERITE-REG-1-TO-FILE=—1. 


| 25) 


1812000¢ 
18130000 
18140000 
18150000 
18160000 
18170000 
18180000 
18190000 
18200000 
18210000 
18220000 
18230000 
18240000 
18250000 
18260000 


MOVE COCIA 


18290000 
18300000 
18310000 
18320000 
18330000 
18340000 
18350000 
18360000 
18370000 
18380000 
18390000 
18400000 
18410000 
18420000 
18430000 
18440000 
18450000 
18460000 


W8Z2300 PROCESS=D-REC-EXi1. 


182400 


EALT. 


18470000 
18480000 


L82Z2500**% = EERE REET RE RR ES ee Oe ye ee 


182600 WRITE-REC-1-TO-FILE-1 SECTION. 18500000 
Le2700 WRITE=REC-1- 18510000 
182800 MOVE OUT=REG=1 7O OU7PUT-REC-=i 18520000 
182900 WRITE GUTEU?-REC—ie 18530000 
183000 MOVE SPACES TO OUT-REC [Ee 18540000 
183100 WRITE-REC-1-EXIT. 18550000 
183200 BALE. 18560000 


LE3S30OK RRR RRR KR KE EK EK KEE KEK EEE KEKE Ke Keke KKK) EST OOOO 


183400 PROCESS-REC-F SECTION. 18580000 
183500 PROCESS-F-REC. 18590000 
183600 MOVE B1O0O-INPUT-REC TO WS-F-REC- 18600000 
183700 MOVE HDR-NIIN-F TO DO46D-2. 18610000 
183800 MOVE O02 TO PRINT-CODE-2. 18620000 
183900 IF AQUOS LESS THAN ZERO 18630000 
184000 MOVE ‘-’ TO A005=-2-M 18640000 
184100 ELSE 18650000 
184200 MOVE SPACES 7OGsA005-2-M, 18660000 
184300 MOVE AOO5 TO AOO05-2-N. 18670000 
184400 IF AQOSA LESS TEAN ZERO 18680000 
184500 MOVE *~=" “TO ACCSA-2Z-M 18690000 
184600 ELSE 18700000 
184700 MOVE SPACES TO AOOSA-2-M- 18710000 
184800 MOVE AOOSA TO AOOSA-2-N. 18720000 
184900 IF BO?74 LESS THAN ZERO 18730000 
185000 MOVE “=" 70 BO74=2-M 18740000 
185100 ELSE 18750000 
185200 MOVE SPACES TO B0O74-2-M. 18760000 
189300 MOVE BO74 TO BO74-2-N. 18770000 
185400 MOVE AOlT TO ACI 2. 18780000 
185500 MOVE FOO7-NUM-IN TO HLD-FOCG7-=NUM- 18790000 
185600 MOVE FOO?7—-DEC-IN 70 HED-FU07—-DEGc, 18800009 
185700 MOVE COMB-FOO7-HLD TO FO007-2. 18810000 
185800 MOVE DOO8 TO DOO8-2. 18820000 
185900 PERFORM WRITE-REC-2-TO-FILE-2. 18830000 
186000 PROCESS-F-REC-EXIT. 18840000 
186100 EALis 18850000 


LEE QZOOK TERRE RHEE REE REE EEE EEE EEE eee ee ee eRe KK KEK KK) OO EOOOO 


186300 WRITE-REC-2-TO-FILE-2 SECTION. 18870000 
186400 WRITE-REC-2. 18880000 
186500 MOVE OUT~REC-2 TO OUTPUT-REC-2. 18890000 
186600 WRITE OUTPUT-REC-2. 18900000 
186700 MOVE SPACES TO OUT-REC-2. 18910000 
186800 WRITE-REC~-2-EXIT. 18920000 
186900 EXIT: 18930000 
LETOOOR TREE RE EEE EEE EERE EERE KK KR eee KKK KH] OOOO 
187100 PROCESS~REC-H SECTION. 18950000 
187200 PROCESS-H=-REC. 18960000 
187300 MOVE B10-INPUT-REC TO WS-H-REC. 18970000 
187400 MOVE HDR-NIIN-H TO DO46D-3. 18980000 
187500 MOVE 03 TO PRINT-CODE-3. 18990000 
187600 MOVE B0O12-NUM-IN TO HLD-BO12-NUM. 19000000 
187700 MOVE BO12-DEC-IN TO HLD-B012-DEc. 19010000 
187800 MOVE COMB-B0O12-HLD TO B012-B012C-3. 19020000 
187900 MOVE BO12F-NUM-IN TO HLD-B0O12F-NUM. 19030000 
188000 MOVE BO12F-DEC-IN TO HLD-BO12F-DEC. 19040000 
188100 MOVE COMB-B0O12F-HLD TO BO12F-3. 19050000 
188200 MOVE FOO9-NUM-IN TO HLD-FOO9-NUM. 19060000 
188300 MOVE FO09-DEC-IN TO HLD-FO09-DEC. 19070000 
188400 MOVE COMB-FOO9-HLD TO FO009-3. 19080000 
188500 MOVE D012 TO DO012-3. 19090000 
188600 MOVE D013C TO D013C-3. 19100000 
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188700 MOVE D120 TO DiZU—3. 19110000 


188800 MOVE B0Q59-DOLLARS-IN TO HLD-B0O59-DOLL. 19120000 
188900 MOVE BO59-CENTS-IN TO HLD-BO59-CENTS 19130000 
189000 MOVE PRIGE= S000 —-)bUmro ep Ul o— 4% 19140000 
189100 PERPORM WRITE -REG—s—00 air — 3. 19150000 
189200 PROCESS-H-REC-EXIT. 19160000 
189300 EXE. 19170000 
LEAGOOK RARER ERE EEE RRR AEE EEE EEE EEE EEE ERE Ke ERK eK KEW eH] OTRO OOO 
189500 WRITE-REC-3-TO-FILE-3 SECTION. 19190000 
189600 WRITE-REC-3. 19200000 
189700 MOVE OUT=-REC-3 TO OUTPUT-REC-=3. 19210000 
189800 Wei le sOuTPUI-REG=3- 19220000 
189900 MOVE SPACES TO OUT=REC-3. 19230000 
190000 WRITE-REC-3-EXIT. 19240000 
190100 EXLT. 19250000 
ERE EERE EEE EEE EEE EERE EE EEE ee ee eee ee eH] ODEON? 
ea000 PROCESS-REC-J SECTION. 19270007 
184100 PROCESS-J-REC. 19280007 
184200 MOVE, Bi C-INPUT-REC TO WS-J—REC, 19290007 
184300 MOVE HDR-NIIN-J TO DO46D-4. 19300007 
184400 MOVE 04 TO PRINT-CODE-4. 19310007 
184500 MOVE A0Ol1-1 TO A001-4-1. 19320007 
184600 MOVE BO46A-1 TO BO46A-4-1. Pos suoe7 
184700 MOVE AO12A-1 TO A0O12A-4-1. 1934000? 
184800 MOVE rer ROG OS) —1— Nee. FL-PROG-—4-)]-N., 19350007 
184900 MOVE PL=-PROG-OST-1-MIN-IN TO PL-PROG-4-1-M. 19360007? 
185000 MOVE CU0SE—-1 10 COUSE—4-1-- 19370007 
185100 MOVE Ole-t—- INTO ACI2—4-1-N., 19380007 
185200 MOVE AOQ12-1-MINUS-IN TO AO12-4-1-M. 19390007 
Pe5300 MOVE AQZ1A-1-IN TO A021A-4-1-N. 19400007 
185400 MOVE AOZIA-1-MINUS-IN TO AO2ZiA-4-1-—M. 1941000? 
HB5900 MOVE AQO8B-1-IN TO A0OOQ8B-4-1-N. 19420007 
185600 MOVE AOO8B-1-MINUS-IN TO AOO8B-4-1-M. 19430007 
188100 PERFORM WRITE-REC-4-TO-FILE-4. 19440007 
IF AQOl1-2 NOT EQUAL SPACES 19450007 

PERFORM MOVE-ZND-ENTRY. 19460007 

IF A0C1-3 NOT EQUAL SPACES 1947000? 

PERFORM MOVE-3RD-ENTRY. 19480007 

188200 PROCESS-J-REC-EXIT. 19490007 
188300 EXIM. 19500007 
ERE RAKE REAR ETEK AEE TERETE REET eRe eee eee eee EK ee] OT OOO) 
MOVE-2ND-ENTRY SECTION. 19520007 
MOVE-2ND. 19530007 

184300 MOVE HDR-NIIN-J TO DO46D-4. 19540007 
184400 MOVE 04 TO PRINT-CODE-4. 19550007 
BS 7010 MOVE AO0O1-2 TO A001-4-1. 13560007 
185800 MOVE BO46A-2 TO BO46A-4-1. 19572007 
185900 MOVE AQ12A-2 TO AO12A-4-1. 19580007 
186000 MOVE PL-PROG-OST=-2-IN TO PL-PROG-4-1-N. 19590007 
186100 MOVE PL=PROG-OST-2-MIN-IN TO PL-PROG-4-1-M. 19600007 
186200 MOVE COO3E-2 TO CO03E-4-1. ISSCC o7 
186300 MOVE AOl2-2-IN TO A012-4-1-N. 19620007 
186400 MOVE A0OQ12-2-MINUS-IN TO A0Q12-4-1-M. 19630007 
186500 MOVE AOQ21A-2-IN TO A021A-4-1-N. 1964000? 
186600 MOVE AOQ21A-2-MINUS-IN TO AO021A-4-1-M. 19650007 
186700 MOVE AOO8B-2-IN TO AOOQO8B-4-1-N. 1966000? 
186800 MOVE AOO8B-2-MINUS-IN TO AQ0O8B-4-1-M. 1967000? 
188100 PERFORM WRITE-REC-4-TO-FILE-4. 19680007 
MOVE-2ND-EXIT. 19690007 

Jp GU eS 19700007? 

CAREER REE EEE EE EEE EERE EEE EEE RR RR KKK eT OTT OOO 7 
MOVE—-SRD-ENTRY SECTION. P3i20007 
MOVE=3RD. 19730007? 

184300 MOVE HDR-NIIN-J TO DO46D-4. 19740007 
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184400 MOVE 04 TO PRINI-CODE-—4. 
186900 MOVE A001-3 TO AO001-4-1. 
187000 MOVE BO46A-3 TO BO46A-4-1. 
nes 9 1 88) MOVE A012A-3 TO A012A-4-1. 
187200 MOVE PL-PROG-OST=-3-IN TO PL-PROG-4-1-N. 
187300 MOVE PL-PROG-OST-3-MIN-IN TO PL-PROG-4-1-M. 
187400 MOVE CO0O3E-3 TO CO03E-4-1. 
18 7S00 MOVE A0O12-3-IN TO A012-4-1-N. 
187600 MOVE A0Q12-3-MINUS-IN TO A0O12-4-1-M. 
187700 MOVE A021A-3-IN TO AO021A-4-1-N. 
187800 MOVE A021A-3-MINUS-IN TO A021A-4-1-M. 
187900 MOVE A00O8B-3-IN TO AOO8B-4-1-N. 
188000 MOVE AOO8B-3-MINUS-IN TO AOO8B-4-1-M. 
188100 PERFORM WRITE-REC-4-TO-FILE-4. 

MOVE=3RD-EXIT. 

EXIT. 


P9750007 
19760007 
19770007 
19780007 
19790007 
19800007 
19810007 
19820007 
19830007 
19840007 
19850007 
19860007 
19870007 
19880007 
19890007 
19900007 


LBB ZOO % % mR IOI IOI II IOI III TIO IT III KEK HICK) 9910007 


195 300% wm III IO III IIIT TI EE IIK HII ITT 9920000 


195400 WRITE-REC-4-TO-FILE-4 SECTION. 
gaa WRITE -REC—AR 


195600 MOVE OUT-REC=4 TO OUTPUT-REC=-4. 
195700 WRITE OUTPUT-REC-4. 

195800 MOVE SPACES TO OUT-REC=4. 
195900 WRITE-REC-4-EXIT. 

196000 EXIT. 


19930000 
19940000 
19950000 
19960000 
19970000 
19980000 
19990000 


LOG LOO® % me EEE EEE EE EEK EEE KK KKK KK EK KKK HKIOOOOONN 


196200 PROCESS—REC-L SECTION: 
196300 PROCESS-L-REC. 


196400 MOVE BIO-INPUI-REC TO WS-L-REC- 
196500 MOVE HDR-NIIN-L TO DO46D-5. 
196600 MOVE 05> 1C ERINT—-CODE—>- 

196700 MOVE KOO]=L TO K001]-35. 

196800 MOVE KOO2-L001-L TO KO02-L001-5. 
136900 MOVE LOOI1A-L TO LOOIA-5. 

197000 MOVE LO2Z2-L TO 1022-5. 

197106 MOVE AQO1-FROM-L TO AOO1-5. 
197200 MOVE A001-TO-L TO A001-5~-2ND. 
197300 MOVE ORIG-QTY-L TO ORIG-OTY-5. 
197400 MOVE COOSE-L TO €O03E-—s. 

197500 MOVE DELY-DATE-L TO LOO9-5. 
197600 MOVE LO34-L-MINUS-IN TO LO34-5-M. 
197700 MOVE 1034-1 —-IN»1TO) LO34-—5-—N. 
197800 MOVE A0O12A-FROM-L TO AO12A-5. 
197900 MOVE AUDILZA=TO=L TC AUIZA-5S—-2ZND. 
198000 PERFORM WRITE=REC—5-TO-FILE=3. 
198100 PROCESS-L-REC-EXIT. 

1382010 EMIT: 


20010000 
20020000 
20030000 
20040000 
20050000 
20060000 
20070000 
20080000 
20090000 
20100000 
20110000 
20120000 
20130000 
20140000 
20150000 
20160000 
20170000 
20180000 
20190000 
20200000 
20210000 


LOBSOO* RRR EEK EKER EEE KKK KKK KK KKK KKK KEK IOIIOONO 


198400 WRITE-REC-5-TO-FILE-5 SECTION. 
198500 WRITE-REC-5. 


198600 MOVE OUT-REC-5 TO OUTPUT-REC=5. 
198700 WRITE OUTPUT—-REC—S. 

198800 MOVE SPACES TO OUT-REC=-5. 
198900 WRITE-REC-5-EXIT. 

199000 | Dy a he 


20230000 
20240000 
20250000 
20260000 
20270000 
20280000 
20290000 


LOGLOOX% RRR RR RE KKK KE KKK EKKID ZOO ON0 


192300 PROCESS-REC-N SECTION. 
192400 PROCESS-N-REC. 


192500 MOVE B1O-INPUT-REC TO WS-N-REC. 
192600 MOVE HDR-NIIN-N TO DO46D-6, DO46D-13. 
192700 MOVE 06 TO PRINT-CODE-6. 


MOVE 13 TO PRINT-CODE-13. 
MOVE PPR-AOO1-IN TO AOO01-13. 
192800 MOVE PPR-KOO1-IN TO KOO1-6. 
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20310009 
20320009 
20330009 
20340009 
20350009 
20360009 
20370009 
20380009 


—— ———— ee lll 


es lele 
193000 
93100 
T9's200 


3 500 
13400 
193500 
133500 
193600 
193700 


201000 
201100 
201200 


201400 


1933900 


194100 
194200 
194300 


194500 


201800 
201900 
202000 
202100 
202200 
202300 
202400 
202500 
202600 
202700 
202800 
202900 
203000 
203100 
203200 
203300 
203400 
203500 
203600 
263700 
203800 
203900 
204000 
204100 
204200 
204300 
204310 
204320 
204400 
204500 
204600 
204700 
204800 
204900 


MOVE PPR-KO0O2-IN TO KOO2 


MOVE 


MOVE PPR-KO17-IN TO KO1? 


MOVE 


MOVE AO14F-IN TO AO14F-1 
MOVE PPR-KO18-IN TO KO18 
MOVE PPR-KO024-IN TO K024 
PERFORM WRITE-REC-6-TO-FILE-6. 


PERFORM WRITE-REC-13-TO-FILE-13. 


PROCESS=-N-REC-EXIT. 
Bail. 

200700 1 IIIS IIIS IIOIDIOIIOI SIDI SI IIIS IIIT 500000 

200800 WRITE-REC-6-TO-FILE-6 SECTION. 

200900 WRITE-REC-6. 


MOVE OUT-REC-6 TO OUTPUT-REC-6. 


WRITE OUTPUT-REC-6. 
MOVE SPACES TO OUT-REC-6. 
201300 WRITE-REC-6-EXIT. 
EAL. 

QOLSOO® ® % KR we OO Or UO kr ore teenie 92 0580000 
Wiehe hee i s—FrO-F iLe—-13 SECTION. 
194000 WRITE-REC-13. 


MOVE OUT-REC-13 TO OUTPUT-REC-13. 


WRITE OUTPUT-REC-13. 
MOVE SPACES TO OUT-REC-13. 
194400 WRITE-REC-13-EXIT. 
EXIT. 

LO4ZEOO KK RE Hee rr Kok kook ror rok ror ree IDO GE GO0010 
ZOneOO PROCESS-REC-P SECTION. 
201700 PROCESS-P-REC. 


MeVEewe NED? REC) 1@gWS—-P—=REC. 


MOVE HDR-NIIN-P TO DO46D-7. 


MOVEeO 7) 10 PRINT—-CODE=7,. 
MOVE DOlG-1S7T =tO DO16-7. 


MOVE 


PPR-OTY-IN TO KOO06- 


DOLGA-1ST Te DO16A-— 


(cr 
PPR-A012A-IN TO AO12A-6, 
-6. 
6, K0O06-13. 


3. 
-6. 
eG. 


fea 


TF O1G=—2=-1S57T NOT EQUAL SPACES 


I) 


IF 


1G 


TE 
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IQs 


1S 


10a 


1g 


PERFORM MOVE-2-ENTRY. 
D016-3-1ST NOT EQUAL 
PERFORM MOVE-3-ENTRY. 
DOl6—4-1ST NOT EQUAL 
PERFORM MOVE—4—ENTRY. 
DOlG—-o-1S1T NOP EQUAL 
PERE ORM UMOVE-—O—-ENTRY. 


SPACES 


SPACES 


SPACES 


DOL6=-2ND NOT EQUAL SPACES 


PERE ORMeMG 5 —6—ENIRY. 
D016-2-2ND NOT EQUAL 
PERFORM MOVE-7-ENTRY . 
DO16-3-2ND NOT EQUAL 
PERE ORM MOVE—G-ENTRY. 
DO16-4-2ND NOT EQUAL 
PERFORM MOVE-9-ENTRY. 
DO16-5-2ND NOT EQUAL 


SPACES 


SPACES 


SPACES 


SPACES 


PERFORM MOVE—-LO-ENTRY. 
PERFORM WRITE-REC-7-TO-FILE-7. 
DO16-3RD NOT EQUAL SPACES 


PERFORM MOVE-11-ENTRY 


ELSE 
COR OsPROCESS—-F-REC—EAI 1. 
IF DO16-2-3RD NOT EQUAL SPACES 
PERFORM MOVE-12-ENTRY. 

IF DO016-2-3RD NOT EQUAL SPACES 
PERFORM MOVE-12-ENTRY. 

IF D016-2-3RD NOT EQUAL SPACES 
PERFORM MOVE=12-ENTRY, 
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AQIZA=13. 


20390009 
20400009 
20410009 
20420009 
20430009 
20440009 
20450009 
20460009 
20470009 
20480009 
20490009 


20510000 
20520000 
20530000 
20540000 
20550000 
20560000 
20570000 


20590010 
20600010 
20610010 
20620010 
20630010 
20640010 
20650010 


20670000 
20680000 
20690000 
20700000 
20710000 
20720000 
20730000 
20740000 
20750000 
20760000 
20770000 
20780000 
2079000C 
20800000 
20810000 
20820000 
20830000 
20840000 
20850000 
20860000 
20870000 
20880000 
20890000 
20900000 
20910000 
20920000 
20930000 
20940000 
20950000 
20960000 
20970000 
20980000 
20990000 
21000000 
21010000 
21020000 


205000 IF DO16-2=3RD NGT EQUAL SPACES 21030000 


205100 PERFORM MOVE-12-ENTRY. 21040000 
205110 IF D016-3-3RD NOT EQUAL SPACES 21050000 
205120 PERFORM MOVE-13-ENTRY. 21060000 
205130 IF D016-4-3RD NOT EQUAL SPACES 21070000 
205140 PERFORM MOVE-14-ENTRY. 21080000 
205050 IF D016-5-3RD NOT EQUAL SPACES 21090000 
205160 PERFORM MOVE-15-ENTRY. 21100000 
205200 PERFORM WRITE-REC-7-TO-FILE-7. 21110000 
205210 PROCESS-P-REC-EXIT. 21120000 
205220 EXIT 21130000 
DOS 3 OO RR Re ROI IOI III I IOI III I IOI III IGG te IO HIT 740000 
205400 MOVE-2-ENTRY SECTION. 21150000 
205500 MOVE=-2. 21160000 
205600 MOVE D016-2-1ST TO DO016-7-2. 21170000 
205700 MOVE D016A-2-1ST TO DO16A-7-2. 21180000 
205800 MOVE-2-ENTRY-EXIT. 21190000 
205900 EXIT. 21200000 
POGOOOD % % ww Re III IOI IOI III IOI III II II HIF IID 1210000 
206100 MOVE-3-ENTRY SECTION. 21220000 
206200 MOVE-3. 21230009 
206300 MOVE D016-3-1ST TO DO16-7-3. 21240000 
206400 MOVE DO16A-3-1ST TO DO16A-7-3. 21250000 
206500 MOVE-3-ENTRY-EXIT. 21260000 
206600 EAGT 21270000 
POC TOO® ® & % RH mI IOI IOI IOI IO IOI ITI III HIE IKHNIAT IQ OOOO 
206800 MOVE-4-ENTRY SECTION. 21290000 
206900 MOVE-4. 21300000 
207000 MOVE D016-4-1ST TO D016-7-4. 21310000 
207100 MOVE D0O16A-4-1ST TO DOQ16A-7-4. 21320000 
207200 MOVE-4-ENTRY-EXIT. 21330000 
207300 EXIT. 21340000 
ZOT4SZOO™ ® % % mm Re III UII IOI UCI IOI IOI OOo rrr 92934350000 
207500 MOVE-S-ENTRY SECTION. 21360000 
207600 MOVE-5. 21370000 
207700 MOVE DO016-5-1ST TO DO016-7-5. 21380000 
207800 MOVE DO16A-5-1ST TO DO16A-7-5. 21390000 
207900 MOVE-5-ENTRY-EXIT. 21400000 
208000 EAd 21410000 
ZOBLOOX™ * * # RR wR we em i OOK TO Ok ror reer Ix D1 AD20000 
208200 MOVE-6-ENTRY SECTION. 21430000 
208300 MOVE-6. 21440000 
208400 MOVE DO16-2ND TO D0O16-7-6. 21450000 
208500 MOVE DO16A-2ND TO DO16A-7-6. 21460000 
208600 MOVE-6-ENTRY-EXIT. 21470000 
208700 EX ls 21480000 
ZOBSBOO* ®% tw RR we wr Eke e DT AO0000 
208900 MOVE-7-ENTRY SECTION. 21500000 
209000 MOVE-?7. 21510066 
209100 MOVE DOLG=Z-2ND TOeD0lG—7-7. 21520000 
209200 MOVE DO16A-2-2ND TO DO16A-7-?7. 21536000 
209300 MOVE-7-ENTRY-EXIT. 21540000 
209400 EAI. 21 S50000 
ZOOSOO® ® RR TOI III IO III IOI et te 494191560000 
209600 MOVE-8-ENTRY SECTION. 21570000 
209700 MOVE-8. 21580000 
209800 MOVE D016-3-2ND TO D016-7-8. 21590000 
209900 MOVE DO16A-3-2ND TO DO16A-7-8. 21600000 
210000 MOVE-8-ENTRY-EXIT. 21610000 
210100 EXIT: 21620000 
ZLOQZOO ® & HR Re IO III I IOI OI IOI III ROI IIT III IHC IEF ID 1G 30000 
210300 MOVE-9-ENTRY SECTION. 21640000 
210400 MOVE-9. 21650000 
210500 MOVE D016-4-2ND TO DO016-7-9. 21660000 
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210600 MOVE DO16A-4-2ND TO DO16A-7-9. 21670000 


210700 MOVE-9-ENTRY-EXIT. 21680000 
210800 EX i. 21690000 
DL O9OO ® & em eR III III IOIOIOIDIDIDIDIOIDIDIDIDO IOI cro 491700000 
211000 MOVE-10<-ENTRY SECTION. 21710000 
Zio Oo MOVE-10. 21720000 
211200 MOVE D016-5-2ND TO DO16-7-10. 21730000 
211300 MOVE D0O16A-5-2ND TO DO16A-7-10. 21740000 
211400 MOVE-10-ENTRY-EXIT. 21750000 
211500 Exar. 21760000 
211600 1 eI III II IOI IOIIGIDIDIOIUIIOI IOI III III III III ICI IH IIH IT 770000 
ZaeeowO MOVE=11-ENTRY SECTION. 21780000 
Zirez0 MOVE-11. 21790000 
24817 010 MOVE HDR-NIIN-P TO DO46D-7. 21800000 
211800 MOVE 07 TO PRINT-CODE--7. 21810000 
211900 MOVE D016=-3RD TO DO1E-7. 21820000 
212000 MOVE D0O16A-3RD TO DO16A-7. 21830000 
oe Oe MOVE-11-ENTRY-EXIT. 21840000 
212020 EXET. 21850000 
PIZOBOX® BHR RRR IIIT a HKD TB E0000 
212040 MOVE-12-ENTRY SECTION. 21870000 
292050 MOVE-12. 21880000 
Z1F2100 MOVE DOI6=2-3RD TO DO16—7-2, 21890000 
212200 MOVE DOJ 6A—-2-3RD TO DOILGA-7-2. 21900000 
212210 MOVE-12-ENTRY-EXIT. 249190000 
212220 EXIT. 2192C00C 
2122308 RRR KK OOOO rk kok a kk kkk re #291 930000 
oe MOVE-13-ENTRY SECTION. 4 21940000 
Ziezoo MOVE-13. 21950000 
2123500 MOVES DOU6—-3-SRD TO DO16-7=3. 21960000 
212400 MOVE DO16A-3-3RD TO DO16A-7-3. 21970000 
212410 MOVE-13-ENTRY-EXIT. 21980000 
212420 5p, @ Gee 21990000 
ZI2Z43BO® %% HHH IO OOOO ok xk kk x ee *DD000000 
212440 MOVE-14-ENTRY SECTION. 22010000 
212450 MOVE-14. 22020000 
212500 MOVE D016-4-3RD TO DO016-7-4. 22030000 
212600 MOVE D0O16A-4-3RD TO DO16A-7-4. 22040000 
212610 MOVE-14-ENTRY-EXIT. 22050000 
Zize2 0 BALI. 22060000 
ZL ZE3O% HR KR OOO OR IOI OR I ro nee eee EI DIO TOON 
212640 MOVE-15-ENTRY SECTION. 22080000 
212650 MOVE-15. 22090000 
212700 MOVE, DOlG=5-—3R0) 10 bole—-7-—5. 22100000 
212800 MOVE DO16A-5-3RD TO DOI16A-7-5. 22110000 
212810 MOVE=-15-ENTRY-EXIT. 22120000 
212820 EXOT. 22130000 


ZI ZB 30% wm OI IOI III IO III IO sO to kk te * D971 E0000 


ZL BQOO® HR He OOOO OO kre DDT 50000 


213300 WRITE-REC-7-TO-FILE-7 SECTION. 22160000 
213400 WRITE-REC-?. 22170000 
ZS 500 MOVE OUT=-REC-?7 TO OUTPUT=-REC-?. 22180000 
213600 WRITE OUTPUT=-REC-7. 22190000 
213700 MOVE SPACES TO OUT-REC-/. 22200000 
213800 WRITE-REC-7-EXIT. 22210000 
213900 EXIT. 22220000 
214000 ® & & mm ee ee OOOO IOI OOO tO et 94H D2 30000 
214100 PROCESS-REC-R SECTION. 22240000 
Zifie OOsPROCESS-R-REC. 22250000 
214300 MOVE B10O-INPUT-REC TO WS-R-REC. 22260000 
214400 MOVE HDR-NIIN-R TO DO46D-8. 22279000 
214500 MOVE 08 TO PRINT-CODE-8. 22280000 
214600 MOVE D009-1ST TO DO009-8-1. 22290000 
214700 MOVE D011-1ST TO D0O11-8-1. 22300000 


od 





214800 MOVE FO1S8=1S1 TOs 0le-—s-1). 22310000 
214900 MOVE DO13-1ST TO DO13-8-1. 22320000 
214910 IF DO09-2-1ST NOT EQUAL SPACES 22330000 
214920 PERFORM MOVE-2-APPL. 22340000 
214930 IF DOO9=-3-1ST NOT EQUAL SPACES 22350000 
214940 PERFORM MOVE-3-APPL. 22360000 
214950 IF DO0O9-2ND NOT EQUAL SPACES 223510600 
214960 PERFORM MOVE-4-APPL. 22380000 
214970 IF DOO9-2-2ND NOT EQUAL SPACES 22390000 
214980 PERFORM MOVE-5-APPL. 22400000 
21435290 IF DOO9-3-2ND NOT EQUAL SPACES 22410000 
214992 PERFORM MOVE-6-APPL. 22420000 
214992 PERFORM WRITE-REC-8-TO-FILE-8. 22430000 
214993 IF DOO9-3RD NOT EQUAL SPACES 22440000 
214994 PERFORM MOVE-7-APPL. 22450000 
214997 IF DOO9-2-3RD NOT EQUAL SPACES 22460000 
214998 PERFORM MOVE-8-APPL. 22470000 
214999 IF DOO9-3-3RD NOT EQUAL SPACES 22480000 
215000 PERFORM MOVE-9-APPL. 22490000 
215001 IF DOO9-3RD NOT EQUAL SPACES OR D009-2-3RD 22500005 
215002 NOT EQUAL SPACES OR D009-3-3RD NOT EQUAL SPACES 22510005 
215603 PERFORM WRITE-REC-8-TO-FILE-8. 22520000 
215004 PROCESS-R-REC-EXIT. 22530000 
21505 EXIT. 22540000 
215006*% *** ee Re ek ok ro rok ror roo or rok ok koro or ror ror kor rower e rrr exe DDISSQOO00 
215007 MOVE-2-APPL SECTION. 22560000 
215008 MOVE-APPL=-2. 22510600 
ZioOdss MOVE D009-2-1ST TO D009-8-2. 22580000 
215200 MOVE D011-2-1ST TO DO011-8-2. 22590000 
215200 MOVE F018=-2-1ST TO FO18-8-2. 22600000 
215300 MOVE D013-2-1ST TO D0O13-8-2. 22610000 
215310 MOVE-2-APPL-EXIT. 22620000 
215370 EXIT. 22630000 
Z153 30% * % wR mm ee OO OKO OI Or kr ke aire 9999640000 
215340 MOVE-3-APPL SECTION. 22650000 
215350 MOVE-APPL-3. 22660000 
215400 MOVE D009-3-1ST TO DO009-8-3. 22670000 
215500 MOVE DO11-3-1ST TO DO11-8-3. 22680000 
215600 MOVE F0O18-3-1ST TO FO018-8-3. 22690000 
215700 MOVE D0i3-3-1ST TO D013-8-3. 22700000 
215701 MOVE=-3-APPL-EXIT. 22710000 
215102 EAL oe 22720000 
ZISTLIOXR RARER KREWE KEE KK KKK KEK IKIDIIOOOO 
215720 MOVE-4-APPL SECTION. 22740000 
215730 MOVE-APPL=-4. 22750000 
215800 MOVE DOO0O9-2ND TO DO09-8-4. 22760000 
215900 MOVE DO11-2ND TO DO11-8-4. 221170000 
216000 MOVE FO18-2ND TO FO18-8-4. 22780000 
216100 MOVE D013-2ND TO DO013-8-4. 22790000 
216110 MOVE-4-APPL-EXIT. 22800000 
216120 EXIT... 22810000 
ZLEL3AOXER KERR OO Orr rr rrr kro ree ee DIRDIOOOO 
216140 MOVE=-5-APPL SECTION. 22830000 
216150 MOVE-APPL-S. 22840000 
216200 MOVE DO009-2-2ND TO DO09-8-5. 22850000 
216300 MOVE DOLI=2-2ND TO D019 —s—5, 22860000 
216400 MOVE FO18~-2-2ND TO FO018-8-5. 22870000 
216500 MOVE DO013-2-2ND TO DO13-8-5. 22880000 
216510 MOVE-5-APPL-EXIT. 22890000 
216520 EXIT; 22900000 
ZLES 30% * eR RK RR OOOO ok ior kor an kk kk korn 999970000 
216540 MOVE-6-APPL SECTION. 22920000 
216550 MOVE-APPL-6. 22930000 
216600 MOVE D009-3-2ND TO D009-8-6. 22940000 
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216700 MOVE D011-3-2ND TO DO11-8-6. 22950000 


216800 MOVE F018-3-2ND TO FO18-8-6. 22960000 
216900 MOVE D013-3-2ND TO D013-8-6. 22970000 
2p 2l0 MOVE-G-APPL-EXIT. 22980000 
216920 EX. 22990000 
216930 % III III IIDC UIIIDIDICI IDIOTIC OOOO TITI a tI 41569 3000000 
216940 MOVE-7-APPL SECTION. 23010000 
216950 MOVE-APPL-7. 23020000 
217100 MOVE HDR-NIIN-R TO DO46D-8. 23030000 
217200 M@vE 08 TO PRINT-CODE se 23040000 
217300 MOVE D009-3RD TO DO0O09-8-1. 23050000 
217400 MOVE DOT1-—3RD TO DO11—-8-1. 23060000 
275.00 MOVE FOLPS-3RD TO FO18—8—-1. 23070000 
217600 MOVE D013-3RD TO D013-8-1. 23080000 
emo 0 MOVE—-7-APPL-EXIT. 23090000 
217620 EXD E 23100000 
QL 7630 BR III III OID IDIDIDIOI IOI ORCI OID OOOO OOO II II HK IHD 37710000 
217640 MOVE-8-APPL SECTION. 23120000 
217650 MOVE-APPL-8. 23130000 
Zi 700 MOVE D009-2-3RD TO DO009-8-2. 23140000 
217800 MOVE =DOTI=2—-3RD TO DOl1-e—2. 23150000 
217900 MOVE FOlG=27-—3RD TO F01e—s—2 23160000 
218000 MOVE D013=-2-3RD TO D013-8-2. 23170000 
Zee MOVE-8—-APPL-EXIT. 23180000 
Zie020 EXIT. 23190000 
PIBOBOX® % % eR OI IOI IDI IID IOI IDI IOIDIOIOIDIDIDIOI OIC IO ttt tee 99 3900000 
218040 MOVE-9-APPL SECTION. 23210000 
218050 MOVE-APPL-9. 23226000 
218100 MOVES DOO S-3-3kb TO D009-3-3.. 23230000 
218200 MOVE DO11=-3-3RD TO DO011-8-3. 23240000 
218300 MOVE F018-3-3RD TO FO018-8-3 23250000 
218400 MOVE DO13=-3-3RD TO DO013-8-3. 23260000 
218410 MOVE-9-APPL-EXIT. 23270000 
Zee 420 EXIT. 23280000 
21 BBOO® % HR OO III IO III III IOI GIO ID II 1% D3729909000 
218900 WRITE-REC-8-TO-FILE-8 SECTION. 23300000 
223000 WRITE=REC-8. 23310000 
249100 MOVES OUT—-REC—-6 TO OUTPUT—REC-—8.. 23320000 
219200 WRITE POUTPUT=REC=8. 23330000 
2300 MOVEMSOPACES) £0 OUT-REGC—s. 23340000 
219400 WRITE-REC-8-EXIT. 23350000 
219500 Exch. 23360000 
219600 ® © III II III III IID IOI I IDI IOI III IIE IE II IE IEF ID 3370000 
219700 PROCESS-REC-T SECTION. 23380000 
219800 PROCESS-T-REC. 23520000 
219900 MOVES S20—l NE Ul REC lTOeWS—1-REC. 23400000 
220000 MOVE HDR-NIIN-T TO DO46D-9. 23410000 
220100 MOVE 09 TO PRINT-CODE-9. 23420000 
220200 MOVE BB-KO002-K02Z0-IN TO KOOZ-K020—-9.- 23439000 
220300 MOVE BB-KO36-IN TO K036-9. 23440000 
220400 MOVE BB-KOZ24-IN TO K024-9. 23450000 
220500 MOVE BB-KO22-IN TO K022-9. 23460000 
220600 MOVE BB-KUZo-IN TG KOZ5—9. 23470000 
220700 MOVE BB-KO26-IN TO K026-9. 23480000 
220800 PERFORM WRITE-REC-9-TO-FILE-9. 23490000 
220900 PROCESS=-T-REC-EXIT. 23500000 
221000 EXIT. 23310000 
ZPZLLOO® & & % ee III III III II IOI III IOI IO FOI IOI FOI IO IIA I IIT ICICI D F5IOO000 
221200 WRITE-REC-9-TO-FILE-9 SECTION. 2353000C 
221300 WRITE-REC-9. 23540000 
221400 MOVE OUT-REC-9 TO OUTPUT-REC-9. 2a550000 
221500 WRITE OUTPUT=REC-9. 23560000 
221600 MOVE SPACES TO OUT-REC-9. 23570000 
221706 WRITE-REC-9-EXIT. 23580000 


221800 


222200 
222300 
222400 
222500 
222600 
222700 


222800 
222900 
223000 


223100 
223200 
223300 


223500 
Z25c00 
223700 
223800 
223900 


EXIT. 


221 QOOR ERK ER EK KR KKK REAR AK ER REEKEKEKEER AERA EKER AKAK KEKE RE EKED IE ODO OOO 


23590000 


222000 PROCESS-REC-V  SECEIONE 23610000 
222100 PROCESS-V-REC. 23620000 
MOVE B1O-INPUT-REC TO WS-V-REC. 23630000 
MOVE HDR-NIIN-V TO DO46D-10. 23640000 
MOVE 10 TO PRINT-CODE-10. 23650000 
MOVE CO35-IN=-1 TO C035-B-C-10-1. 23660000 
MOVE COSS—-IN—=1 10 7¢036-10-1.. 23670000 
MOVE DOOI1-IN-1 TO D001-c004C-10-1. 23680000 

IF CO35-IN-2 NOT EQUAL SPACES 23690006 
PERFORM MOVE-2-REFNR. 23 700006 

IF CO35-IN-3 NOT EQUAL SPACES 23710006 
PERFORM MOVE-3-REFNR. 23720006 
PERFORM WRITE-REC-10-TO-FILE=-10. 23730006 

IF CO35-IN-4 NOT EQUAL SPACES 23740006 
PERFORM MOVE-4-REFNR. 23750006 

IF CO35-IN-5 NOT EQUAL SPACES 23760006 
PERFORM MOVE-5-REFNR. 23770006 

IF CO35-IN-6 NOT EQUAL SPACES 23780006 
PERFORM MOVE-6-REFNR. 23790006 

IF CO35-IN-4 NOT EQUAL SPACES OR CO35-IN-5 NOT EQUAL 23800006 
SPACES OR CO35-IN-6 NOT EQUAL SPACES 23810006 
PERFORM WRITE-REC-10-TO-FILE-10. 23820006 

IF CO35-IN-7 NOT EQUAL SPACES 23830006 
PERFORM MOVE-7-REFNR. 23840006 

IF CO35-IN-8 NOT EQUAL SPACES 23850006 
PERFORM MOVE-8-REFNR. 23860006 

IF CO35-IN-9 NOT EQUAL SPACES 23870006 
PERFORM MOVE-9-REFNR. 23880006 

IF CO35-IN-7 NOT EQUAL SPACES OR CO35-IN-8 NOT EQUAL 23890006 
SPACES OR C0O35-IN-9 NOT EQUAL SPACES 23900006 
PERFORM WRITE-REC-10-TO-FILE-10. 23910006 
FROCESS—V—-REC—Exa1. 23920006 
ExT Te 23930006 
We OUI OI III III III III OIA IIA IID IGVAOOOE 
MOVE-2-REFNR SECTION. 23950006 
MOVE~REFNR-2. 23960006 
MOVE CO35-IN-2 TO C035-B-C-10-2. 23970000 
MOVE CO38-IN-2 TO C038-10-2. 23980000 
MOVE DOOI1-IN-2 TO DO001-C004C-10-2. 23990000 
MOVE-2-REFNR-EXIT. 24000006 
EXD. 24010006 
RETR KEKE KEKE KEE KAKA KKK eK KeKK KEK DADO ONG 
MOVE=S-REFNR SECTION. 24030006 
MOVE-REFNR-3. 24040006 
MOVE COSS=IN-3 TOsC035-5-C-10-2. 24050000 
MOVE CO38-IN-3 TO C038-10-3. 24060000 
MOVE DOO1=-IN=-3 TO D001-C004C-10-3. 24070000 
MOVE-3-REFNR-EXIT. 24080006 
EXIT, 24090006 
OOOO IORI IOI UII III IDI IOI OI IOIOIOIDIDIDIGIOI III IIIA ITGE IID ATL OO00E 
MOVE=4-REFNR SECTION. 24110006 
MOVE-REFNR-4. 24120006 
MOVE HDR-NIIN-V TO DO46D-10. 24130000 
MOVE 10 TO PRINT-CODE-10. 24140000 
MOVE CO35-IN-4 TO C035-B-C-10-1. 24150000 
MOVE CO38-IN-4 TO C038-10-1. 24160000 
MOVE DOO1-IN-4 TO DO001-C004cC-10-1. 24170000 
MOVE-4-REFNR-EXIT. 24180006 
EXIT. 24190006 
TOOT IOI III OOO Orr ito 8200006 
MOVE=5—-REFPNR SECTION. 24210006 
MOVE-REFNR-5. 24220006 
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224000 MOVE CO35=IN=5) 16" C035=8-C-10-2. 24230000 


224100 MOVE CO38-IN-5 TO C038-10-2. 24240000 
224200 MOVE DOO1-IN-5 TO DO01-C004C-10-2. 24250000 
MOVE-5-REFNR-EXIT. 24260006 

Eel Ts 24270006 
OOOO III III IUIUIDI III OOS IODIDE IH DAPBOOOE 
MOVE-6-REFNR SECTION. 24290006 
MOVE-REFNR-6. 2430000€ 

224300 MOVE C035-IN-6 TO C035-B-C-10-3. 24310000 
224400 MOVES COSS=IN=6€ 710 CO38=10=3" 24320000 
224500 MOVE DOO1-IN-6 TO DO01-Cc004C-10-3. 24330000 
MOVE-6-REFNR-EXIT. 24340006 

Exit. 24350006 
TORII II III IOI IOI III IOI IOI IDI IODC ocr 9909 42360006 
MOVE-7-REFNR SECTION. 24370006 
MOVE-REFNR-7. 24380006 

224700 MOVE HDR-NIIN-V TO DO46D-10. 24390000 
224800 MOVE 10 TO PRINT=CODE=10. 24400000 
224900 MOVeEuGUA5—IN=7 10. COS5-5-C-10-1- 24410000 
225000 MOVE CO38-IN-7 TO CO038-10-1. 24420000 
y25100 MOVE DOOI-IN-7 TO D001-C004C-10-1. 24430000 
MOVE-7-REFNR-EXIT. 24440006 

Exile 24450006 

WoO kor rrr ROO OO ROK Orr rook ork oro kor kkk rr re DAA EOOOE 
MOVE-8-REFNR SECTION. 2447000€ 
MOVE-REFNR-6&. 2448000€ 

225200 MOVE C0O35-IN-8 TO C035-B-C-10-2. 24490000 
Bos) 0 MOVE CO38-IN-8 TO C038-10-2. 24500000 
225400 MOVE DOOI-IN-8 TO DO01-Cc004C-10-2. 24510000 
MOVE-8-REFNR-EXIT. 24520006 

EXIT. 24530006 
WOOO III IOI III IO OO rnin 24540006 
MOVE-9-REFNR SECTION. 24550006 
MOVE-REFNR-9. 24560006 

225500 MOVE CO35-IN-9 TO C035-B-C-10-3. 24570000 
225600 MOVE CO38-IN-9 TO C038-10-3. 24580000 
225,,00 MOVE DOOI-IN-9 TO DO001-Cc004C-10-3. 24590000 
MOVE-9-REFNR-EXIT. 24600006 

EXIT. 24610006 

ZLZELOOX RRR RRR EKER eee er KKK KDAECIO OOO 
226200 WRITE-REC-10-TO-FILE-10 SECTION. 24630000 
226300 WRKITE-REC-10. 24640000 
226400 MOVE OUT-REC-:10 TO OUTPUT-REC-10. 24650000 
226500 WRITE OUTPUT-REC-10. 24660000 
226600 MOVE = SPACES 10. O0Ul-REC—1 0: 24670000 
226700 WRITE-REC-10-EXIT. 24680000 
226800 3p, 24690000 
226900 KERR RK RK eK KKK Kee KK KKK EK IL TIOOOOO 
227000 MULTI-MOE-CHECK SECTION. 24710000 
227100 CHECK-MULTI-MOE. 24720000 
227209 ihyo-=FLAG=Il NOT EQUAL SPACES 24730000 
227300 PERFORM PROCESS=REC-2Z2 24740000 
227400 Por: 24750000 
227500 PERFORM PROCESS=REC-Z. 24760000 
227600 CHECK-MULTI-MOE-EXIT. 24770000 
221700 1p, JOSE = 24780000 
ZZ TBOO™ ® % mF He ee ee er OO Gr rar a or cir ricer miei 92 4790000 
227900 PROCESS-REC-22 SECTION. 24800000 
228000 PROCESS-22-REC. 24810000 
228100 MOVE B1O-INPUT-REC TO WS-Z22-REC. 24820000 
228200 MOVE HDR-NIIN~-22 TO DO46D-i2. 24830000 
228300 MOVE 12 TO PRINT-CODE-12. 24840000 
228400 MOVE DO93-IN-22-1 TO DO93-12-1. 24850000 
228500 MOVE DO094-IN-Z2-1 TO D094-12-1. 24860000 
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228600 MOVE DO94-IN-Z2=-2 TO DO094-12-2. 24870000 


228700 MOVE D094-IN-Z2-3 TO DO094-12-3. 24880000 
228800 MOVE D094-IN-Z2-4 TO D094-12-4. 24890000 
228900 MOVE DO94-IN-Z2-5 TO D094-12-5. 24900000 
229000 MOVE D094-IN-Z2-6 TO D094-12-6. 24910000 
229100 MOVE D094-IN-Z2-7 TO D094-12-7. 24920000 
229200 MOVE D094-IN-Z2-8 TO D094-12-8. 24930000 
229300 MOVE D094-IN-Z2-9 TO D094-12-9. 24940000 
229400 MOVE DO094-IN-Z2-10 TO DO094-12-10. 24950000 
229500 MOVE DO93-IN-Z22-2 TO DO93-12-2. 24960000 
229600 MOVE DO95-IN-Z2-1 TO DO095-12-1. 24970000 
229700 MOVE DO95-IN-Z2-2 TO DO95-12-2. 24980000 
229800 MOVE DO95-IN-Z2-3 TO DO95-12-3. 24990000 
229900 MOVE DO95-IN-Z2-4 TO DO095-12-4. 25000000 
230000 MOVE DO95-IN-Z2-5 TO DO095-12-5. 25010000 
230100 MOVE DO95-IN-Z2-6 TO DO95-12-6. 25020000 
230200 MOVE D095-IN-Z2-7 TO DO95-12-7. 25030000 
230300 MOVE DO95-IN-Z2-8 TO DO95-12-8. 25040000 
230400 MOVE D095-IN-2Z2-9 TO D095-12-9. 00 
Z5 0500 MOVE DO095-IN-Z2-10 DO95-12-10. 230600 PERFORM WRITE-REC-12-TO 
230700 PROCESS=Z2-REC=EXIT. 
25080000 
230800 EXE 25090000 
230900 *® ® & & oe ee ek ee ari ror ror wk rw irr wii or or ror re eee 25700000 
231000 PROCESS-REC-Z SECTION. 25110000 
231100 PROCESS-Z-REC. 25120000 
231200 MOVE B1O-INPUT-REC TO WS-Z-REC. 25130000 
231500 MOVE HDR-NIIN-Z TO DO46D-11. 25140000 
2314800 MOVE -lle-TO PRINT =CODE=, 25150088 
231500 MOVE DOSS —-I Nelo DOSS —iie 25160000 
231600 MOVE DO9S5-IN-1 TO DO95-11-1. 25170000 
231700 MOVE DO95-IN-2 TO DO095-11-2. 25180000 
2351800 MOVE DOS9S-IN-3 TO DO95-11-3. 25190000 
231900 MOVE DO95-IN-4 TO D095-11-4. 25200000 
232000 MOVE DO9S-IN=-5 TO DO095-11-5S. 25210000 
232100 MOVE DOJS—IN-6 TOeDUSS—-11—-6c. 25220000 
252200 MOVE DO95-IN-7? TO DO95-11-7. 25230000 
2a2500 MOVE DO95-IN-8 TO D095-11-8. 25240000 
232400 MOVE DO95-IN-9 TC pOos-1 1-4. 25250080 
252200 MOVE DOI5S-IN-10 te spo a—i— 0 25260000 
232600 PERFORM WRITE-REC-11-TO-=FILe-ii, 25270000 
232700 PROCESS-Z-REC-EXIT. 25280000 
232800 EXIT. 25290000 
232900* * % % mR mr re rr rrr ra ror rao ori ror ork rors 25300000 
233000 WRITE-REC-11-TO-FILE-11 SECTION. 25310000 
233100 WRITE-REC-11. 25320000 
233200 MOVE OUT-REC-11 TO OUTPUT-REC-1i. 29550000 
233200 WRITE OUTPUT—-REC=1i- 25340000 
233400 MOVE “SPACES TO “OUI -REC-I I. 25350000 
233500 WRITE-REC-11-EXIT. 25360000 
233600 EXIT. 25370000 
233700 * ® & wm ee kr or rr roror iri ko ror aor srs ee D5 3QB0000 
233800 WRITE-REC-12-TO-FILE-12 SECTION. 25390000 
233900 WRITE-REC-12. 25400000 
234000 MOVE OUT-REC-12 10 OUTPUT—-REG-12. 25410000 
234100 WRITE OUTPUT-REC-12. 25420000 
234200 MOVE SPACES TO OUT-REC-12. 25430000 
234300 WRITE-REC-12-EXIT. 25440000 
234400 EXIT: 25450000 
2345S OO*KRK RR rae arr ere ee DOAECOOOO 
234600 CLOSE-ROUTINE SECTION. 25470000 
234700 CLOSE-FILES-ROUTINE. 25480000 
234800 CLOSE Bi0JX1, OFILE!], OFILE2,) GFILEs, CE 1LE4, 25490000 
234900 OFTLES, OFILEG, OFI LE? OF Leo, sOrLeeoy 25500000 
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z23 000 OFT LE] 0,20F 1EE1 I Orie Or iLE1 3. 25o510014 
moa 00 CLOSE-ROUTINE-EXIT. 25520000 
225200 BAD... 25530000 


235 3BOO*% ®% ww RR UTI TUITE IOI kere * 25540000 
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1. OFILE1 


00051958701 00000EG8064R 
COOSI9S5S9901LOOOCOEG6G8064R 
0008213580100000E67185R 
0005213600100000x67185 
0008213660100000xX67185 


APPENDIX E 


SAMPLE NSNSB DATAFILES 


EA041776.00SWASH PLATE,ASSY RO 
EA031698.00SWASH PLATE ASSY,AF 
EA000579.94FILTER, FLUID 

EA000013.21PARTS KIT, PUMP,CURE 
EA000344.89PARTS KIT, PUMP,OVER 


0005244550100000Y68038 1EA001048.51GEAR ROTOR 


0005244570100000Y68038 


EA00S415.62GEAR ROTOR 


OCOOS2635S01COCOCE67206R1EA000885.09MOTOR, ALTERNATING C 


000526575S0100000E67206R 
0005320640100000G69334 
0008446260100000Y67185 
0005447290100000Y67206 
0005447380100000Y67206 
0005448730100000Y67185 
0005516620100000G67185 
0005551230100000 63259 
0005595140100000E64197R 


EA001027.25VALVE, FLOAT, AIRCRAF 
EA000992.14CHANNEL ASSEMBLY 
EAQ000056.34TRANSDUCER, MOTIONAL 
EA000199.03JET, OIL, GEARBOX 
EA005027.74HOUSING AND LINER 
EA000041.49COCK, POPPET DRAIN 
EA000584.81CONTROL PANEL 
EA000004.39BUSHING, SLEEVE 
EA002643.43VALVE, TRANSFER, AUTO 
0005609020100000E64197R1EA000636.01CYLINDER ASSEMBLY,A 
0008609030100000E64197R1EA000452.1SCYLINDER 


ASSY 


ASSEMBLY.A 


OCOSE090401OCOCOOE64197R EA001293.81ACCELEROMETER, HYDRA 
0005622860100000 64123 1EA000429.00SERVOCYLINDER 


0005623390100000 64208 


2. OFTLE2 


00051958702 
00051959902 
00052135802 
00082136002 
00052136602 
000524458502 
00052445702 
00052635502 
00052657502 
00053206402 
00054462602 
00054472902 
00054473802 
00054487302 
00055166202 
00055512302 
00055951402 
00056090202 
00056090302 
00056090402 
00056228602 
00056233902 


0000004 
0000000 
0000000 
0000000 
ooc0o00c0d 
0000000 
0000000 
0000000 
0000001 
0000000 
0000003 
0000000 
0000000 
0000000 
0000000 
co00c0o0d 
0000002 
0000000 
0000000 
0000000 
oo0cc000 
0000053 


0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
0000052 
co0o0o000 
0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
o000c0o00 
0000000 
0000000 
0000000 


00000. 
00000 
00000 
00000. 
00000. 
cooo°. 
00000 
00000. 
00000. 
o0000. 
00027. 
00000. 
Ooo000. 
00000 
00000. 
00000. 
00001. 
00000. 
00000 
00002 
00000 
Ooo0o0. 


EA000684.O00VALVE, LINEAR, DIRECT 


1000000120.04GB48RDX 


- 2000000000 .04GB4 9RAX 
-0000000000.02ADS6KAX 


6000000000.00 
3000000000.00 
0000000000.00 


-6000000000.00 


0000000000. 10ASGAA0X 
1000000000.02AD51VAX 
3000000000.00 
1000000000.00 
0000000000.00 
1000000000.00 


-2000000000.00 


3000000000.00 
0000000000.00 
9000000030.22J3xX61AAX 
0000000000.10AD14VAXx 


-0000000000.02AD14WAX 
-2000000000.0SAR11CAX 
-0000000000.00 


6000000140 .00 


SMTKPGAM7RE161S5TQH 
SMTKU6AM7RE1615TQH 
SME H7RH2915TQ 
5KR H1RM2915T 
SKR H1RM2915T 
SMMELLBM1RM1615T 
SMMELLBH1RM1615TQ 
SMEUG3AM7RE610SLTT 
SML ATRASOUSTL 
SHC HIRDS5826TL 
SMA HIRM6695TLC 
SKR H1RM1615T 
5KR H1RM1615TQ 
5MC H1RM4820T 
pit bi] HIRD6220T 
SKD H1RM1620T 
5KB H7RH6615TOQL 


SKBCVUAM7RH6615T 
SKBMN2AM7RH6615T 


SKB H7RH1650T 
SHI JRQBM1RD1650TQU 
5MC HIRD16SOTQUC 


rs. 


UOARKE 


OARKESS 
OARKE 
OARKE 
OOOKE 
OOOKE 
OOOKE 
OOOKE 


OARKE 
OOOCL 
COOKE 
OOOKE 
OOOKEW] 
OOOKE 

COOKE X 
OOOKE 

TARKEMX 
OARKEMZ 
OARKEMZ 
OARKESS 


K KN NNN NN 


$Z18.00S3PCMHO039580.00 
MZ14.3353ACMH026530.00 


VEEN NNN NN 


= 


=z 


M 
v4 
2 


0S .0O0C3HVMH000579.00 
10.3364HVBHO00015.50 
10.3364HVBHO000397.00 
07.635800VMH001310.00 
13.5353HVMHO06240.00 
06.33100VMH001450.00 
08 .3364HVMHO00860.00 
07.63C30VAHO01180.00 
07.0353BDMH000071.00 
08.5053CDBH000248.00 
15.5053CDBH005570.00 
06.3325BDMH000052.C0 
07.6323HDAHO00729.00 
09.00200DBH000005.50 
10.3313CCBHO02600.00 
09.0033HVBHO00625.00 
09.0063HVBHO000445.00 


$Z10.3363HCBH001260.00 
OOOCTMZ 2 05.3030CVAHO000429.00 
OCOOCTMX M 06.0323HCMHO000684 .00 


3. OFILE3 


000519587030.320.400. 
000519599030.340.420. 
000521358034.814.890. 
000521360030.000.000. 
000521366030.000.000. 
000524455030.000.000. 
000524457030.000.000. 
000526355030.430.620. 
000526575030.160.240. 
000532064030.000.000. 
000544626030.000.000. 
000544729030.000.000. 
000544738030.000.000. 
000544873030.000.000. 
000551662030.000.000. 
000555123030.000.000. 
000559514030.240.320. 
000560902030.320.000. 
000560903030.600.000. 
000560904030.390.470. 
000562286030.000.000. 


99PAD220003410. 
99PAD220002650. 
98PAD220000471. 
OOPA2Z060000000. 
OOPAZO060000000. 
OOPAZ060000000. 
OOPAZ060000000. 
S1PAD220000646. 
98PAD220000415. 
OOPAG220000000. 
OOPAZO60000000. 
OOPAZ060000000. 
OOPADO60000000. 
OOPAZ060000000. 
OOPAGO60000000. 
OOPAZ060000000. 
78PAD220000842. 
S9OPAD220000478. 
98PAD220000247. 
9SPAD220000640. 
OOPAG8DOOOOCOOON. 


000562339030.000.000.00PAG8D0000000. 


4. OFILEA 


00051958704ND2 
00051958704ND2 
00051958704ND2 
00051958704NV2 
00051958704NX2 
00051958704PD2 
00051958704PD2 
00051958 704PE2 
00051958704PN2 
00051958704PN2 
00051958704PR2 
00051958704PS2 
00051958704PTz 
00051958704PT2 
00051958704PT2 
00051958704PT2 
00051958704P48 
00051958704¢18 
00051959904ND2 
00051959904NDZ 
00051959904ND2 
000519S9904ND2 
00051959904NNZ 
00051959904NV2 
000519599C04NX2 
00051959904PD2 
000519589904PD2 
00051959904PE2 
00051959904PN2 
00051959904PN2 
00051959904PR2 
00051959904PS2 
00051959904PT2 
CO0Us19S59S904P TZ 
00051959904PT2 
00051959904PT2 
000519599049000 
00051959904000 
00051959904R63 
00052135804ND2 
00052135804NNZ2 
00052135804PD2 
00052135804PT2 
00052136004NA2 
00052136604NAZ 
00052136604PD2 
00052445704ND2 
00052445704PT2 
00052635504NA2 
00052635S504ND2 


10 


338 
74 


719 


al 2 
3 4 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
1 0 
0 0 
14 
6 0 
4 
0 0 
0 0 
1 1 
1 
0 0 
0 0 
74 0 
0 0 
3 0 
2 0 
0 
2 0 
0 
0 
1 0 
1 0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000006 


000000003 
000000000 
000000000 


000000000 
000000000 


000000000 
000000000 
000000000 


€00000000 
000000000 
000000000 


000000000 
000000004 
000009000 
000000000 


000000000 
000000000 


00000000C 
000000000 
000000000 


000000001 


000000000 
000000000 
600000000 
000000000 
000000000 
000000000 
000000000 
000000001 
000000000 


AF 
AG 


AD 
AF 
AG 


AD 
AD 
AF 
AG 
AM. 
AF 


AD 
AF 
AG 


AF 


AF 
AF 


30 
26 


a) 


Low. 


00 O 0 


oo oO AOA AO OG 


oOo °o o oO 


ZSEetErEez tr = 


N DOO ON AYP WO 


oro &o 


NO ODOON KY NYO WO 


oOo oO 


oo ov ao aoaoaoo07oc7ao O&O 


oo o ©o& 


oo o oa oo0o90o oO 8 


000000004 


000000001 
000000000 
000000001 
000000001 
000000000 
000000002 
000000001 
000000001 
000000003 
000000002 


000000000 
000000001 
000000005 
¢00000000 


C00000001 
000000002 
000009C0} 
000000002 
000000003 
000000002 
000000001 
000000001 
000000003 
000000002 


000000000 
000000000 
000000000 


000000001 


00052635504NVZ 
00052635504PDz2 
00052635504PT2Z 
OCOOS26S7504NVZ 
0O0S2E6ES7504PDzZ 
00052657504PD2 
OO0S2657504PEZ 
O0OS2657504PNZ 
0005265 7504PN2 
00053206404NB2 
00053206404ND2 
00053206404NNZ 
00053206404NVZ 
00053206404PC2 
00053206404PD2Z 
000S3206404PE2 
00053206404PTZ 
00053206404P26 
00054462604NDZ 
00054462604NNZ 
00054462604NVZ 
00054462604NXZ 
00054462604PD2 
00054462604PEZ 
00054462604PN2 
00054462604PRZ 
OCO0S4462604PTZ 
00054462604P48 
00054462604000 
00054462604018 
00054472904NAZ 
00054473 804NAZ 
OOO54487304ND2 
00054487304N0z 
00054487304NVZ 
00054487304NXZ 
00054487304PDz2 
00054487304PNZ 
00054487304PTZ 
00054487304R63 
00055166204NAZ 
00055166204NBz 
00055166204ND2Z 
00055166204PCzZ 
00055166204P36 
00055512304NAZ 
00055512304NB2 
00055512304NDzZ 
00055512304NNZ 
00055512304NVZ 
00055512304PDz2 
00055512304PLzZ 
00055512304PNZ 
00055512304PRz 
00055512304PT2Z 
00055951404ND2 
00055951404NNZ 
00055951404PNZ 
00056090204NAZ 
00056090204NAZ 
00056090204ND2 
00056090204NNZ 
00056090304NAZ 
00056090304NAZ 
00056090304NAZ 
00056090304PTZ 
00056090304PTZ 
00056090404NAZ 
00056090404NAZ 
00056090404NAZ 
OOOS6E090404NAZ 
00056090404NDZ 
00056090404NV2Z 
00056090404PDz2 
00056090404P31 
00056233904ND2 
00056233904NN2 


— 


Ww ms 


—) 
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20 
27 
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oo 0 0 0 0 


000000000 


000000000 
000000002 
000000000 


000000000 
000000000 


000000000 
000000000 
000000000 
000000001 
000000002 
000000000 
000000000 
000000000 
000000000 
000000020 
000000000 
000000019 
000000001 
000000004 
000000007 
000000003 
0000060003 
000000000 
000000000 


000000000 
000000000 
000000000 
000000000 
o0o0000000C 
000000002 
000000000 
000000000 


000000000 
000000001 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
000000000 
100000000 


000000090 


000000000 
000000000 
000000000 
000000000 
000000002 
000000000 


AF 


AF - 


AF 


AE 
AF 
AF 
AE 
AE 
AF 


AE 
AF 
AF 
AG 
AH 


AF 


2) 7; 


140 


6 
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oo oo ooo vo ogo oO olUmUDCUmUNNDCULcO 


ororrocoqcoca co O&O 


Zrzeeter 


ow OF OO 


10 


9o 0 00 03 


000000000 


000000009 
000000001 
000000000 
000000009 
000000001 


000000002 


000000016 


000000006 


000000000 


oo0000016 


000000006 


000000000 


000000001 


000000001 
000000001 


5. OFILES 


00051958705DDKN0065182350507 
00051958705DDKN0065182451723 
00051958705DDKN0024482360550 
00051958705DDKN0024481970437 
00051958705D9CNWHN3261785135 
00051958 705D9CNWHN3270025135 
00051958 705SD9CNWHN3270165135 
00051958705D9CNWHN3270445135 
00051958705SD9CNWHN3270755135 
0005195870SD9CNWHN3270795135 
00051958 70SD9CNWHN3270865135 
00051958705D9CNWHN3270905135 
00051958705D9CNWHN3270935135 
00051958 70SD9CNWHN3270965135 
00051958705D9CNWHN3271005135 
00051958705D9CNWHN3 271005135 
00051958705 D9CNWHN3271145135 
00051958 705D9CNWHN3271145135 
00051958705D9CNWHN3271285135 
00051958705D9CNWHN3271565135 
00051958705D9CNWHN3271635135 
00051958 705D9CNWHN3271805502 
00051958 705SD9CNWHN3271875502 
00051958 705D9CNWHN3272395502 
00051958 705D9CNWHN3272815502 
00051958 705D9CNWHN3280085135 
00051958 705D9CNWHN3281065502 
00051958705SD9CNWRN3 262923643 
00051958705D9CNWRN3 263414297 
O0O0S19S870SD9CNWRN3263484459 
00051958 705D9CNWRN3 263504492 
00051958 705D9CNWRN3270264936 
00051958 705D9CNWRN3 280821369 
00051958 70SD9CNWRN3282362772 
00051958 705D9CNWRN2282572984 
0005195S9905DDKN006€5180560467 
00051959905DDKNO00E518C 700362 
0005195990SDDKN0065181471315 
0005195990SDDSN003838464503 

00051959905DDSN003838454503 

00051959905D9CNWHN3261785133 
0005195990SD9CNWHN3261995133 
00051959905D9CNWHN3 262065133 
00051959905SD9CNWHN3270095133 
0005195990S5D9C NWHN3270165133 
00051959905D9CNWHN3270795133 
00051959905D9CNWHN3270935133 
0005195S9905D9CNWHN327128513323 
00051959905D9CNWHN3271945501 
00051959905D9CNWHN3272195133 
0005195S9905D9CNWHN3272395501 
00051959905D9CNWHN3272495501 
00051959905D9CNWHN3272525501 
00051959905D9CNWHN3272595501 
00051959905D9CNWHN3272825133 
0005195S9905SD9CNWHN3272875501 
00051959905D9CNWHN3273105133 
0005195S9905D9CNWHN3280085133 
00051959905D9CNWHN3280995501 
00051959905D9CNWHN3281135501 
00051959905SD9CNWHN3281835133 
00051959905D9CNWHN3281905133 
00051959905D9CNWRN32634 94472 
00051959905D9CNWRN3281151806 
00051959905D9CNWRN3282362773 
00051959905D9CNWRN3282572985 
00052635505D9CNWHN3281415141 
00052635S505D9CNWHN3281905141 
O00SS951405A4AN658898257036 
00055951405DDSN0038385x9005 

00055951405DDSN0038385x9005 

00055951405D9CNWSN3282250204 
00056090405D9CNWSN3281200218 
0O0056€090405SD9CNWSN3282460209 
00056090405SD9CNWSN3282530209 


02370001AC 
02370001AD 


OO001AB 
OOO1AA 


NVZ 
NVZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
PTZ 
PTZ 
PTZ 
PTZ 
PTZ 
Pe 
PTZ 
NDZ 
PTZ 
NDZ 
PTZ 
PTZ 
NDZ 
NDZ 
PTZ 
Pez 
PZ 
PTZ 
NDZ 
PTZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
NVZ 
NVZ 
NVZ 
NDZ 
PEZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
Pilz 
NDZ 
Phe 
PTZ 
Binz 
PTZ 
NDZ 
PTZ 
NDZ 
NDZ 
PTZ 
PTZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
NDZ 
PTZ 
PTZ 
NAZPNZ 
NDZ 
NNZ 
NAZ 
NAZ 
NAZ 
NAZ 


2A8 8366 
2A89011 
1A89061 
1A89061 
1688301 
3688295 
1688301 
1688302 
36886302 
1688302 
1688310 
1688310 
2688310 
1688310 
1688307 
1688310 
1688301 
2688316 
1688316 
1688307 
1688307 
1688316 
1688316 
2688316 
2688316 
1688307 
1F88138 
1688316 
1688326 
1688316 
1688316 
2688295 
1F88112 
4F88266 
5F88287? 
1A88313 
1A88321 
2488321 


14A87120 


1A87120 
1688296 
1688296 
2688296 
2688303 
2688309 
1688303 
1688303 
1688318 
2688312 
2688309 
2688304 
2688304 
1688304 
1688312 
1688296 
1688312 
1688318 
2688318 
2F88133 
1F88147 
1F88218 
1F88224 
1688296 
OF88149 
3F88268 
3F88289 
7F88174 
1F88222 
1A 0 
3A85365 
4A85365 
OF 88252 
3F88145 
OF 88286 
1F88291 
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OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
1A 
OA 
OA 
OA 
OA 
OA 
1A 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
0A 
OA 
OA 
OA 
OA 
OA 
1A 
1A 
OA 
OA 
OA 
OA 
OA 
OA 
OA 
1A 
OA 
OA 
OA 
1A 
2A 
1A 
OA 


6. OFILE6 


00051958706BPRN6299562850134WVV1086 
0 0051958706BPRNG005062560049WVV0S98E 
00051958706BPRNO024473230022V87SDLM 
00051958706BPRN0014673230012V87SDLM 
00051958706BPRN0024662270135WVV0 886 
00051958706BPRN6312682030223WVV0E8B 
00051958706BPRN0018873420227WVV1287 
00051958706BPRN6111982170254WVV08EE 
00051958706BPRN0065163560412AVV1286 
00051958706BPRN0042181340296WVV0388 
00051958706BPRNO014651350020WP250S1 
00051958706BPRN0014651400025WVV0585 
00051958 706DGAN0O03838105WE21A 

00051958706501V091675360014 3WOSIXXx 
00051958706501N6261352130040WVV0685 
00051958706501R0911671920136KOSIXXX 
00051958706501R0719861700104WOSIXXX 
00051958706501N0031870790035WVV0387 
00051958706501N0026271880057WVV0887 
00051958706501V5284160820153WOSIXXX 
00051959906BPRN0O018881370026L46DPRE 
00051959906BPRNO016873420228WVV1287 
00051959906BPRN0024473230023V87SDLM 
00051959906BPRN0042181340297WVV0388 
00051959906BPRN6312682030224WVV0688 
000519S59906BPRNO024681370026L46DPRE 
00051959906BPRN0024663480007WSRM46P 
00051959906BPRNO014651400026WVV0585 
00051959906R°EN0014673230013V87SDLM 
000519599062? -N6005072600016WACR131 
00051959906BPRN6111982170255wWvV0 888 
00051959906BPRNO065181930003AVV0788 
00051959906BPRN0014651350021WP250SI 
00051959906501R0911681480076WOSIXXX 
00051959906501N003187079003 6WVV0387? 
00051959906501N6261352130041WVV0685 
00051959906501N0026271880058WVV0887 
00051959906501R0719861700105WOSIXXxX 
00051959906501V0916753600144WSRMSPL 
00051959906501V5284160820154WOSIXXx 
00051959906101X0018841520527ARIMSTP 
00052135806BPRN0024662270137WVV088E 
00052445706BPRN0024481824813AY00001 
OOO52657506BPRNOO24680890002WPCH46D 
00052657506BPRN0018861250021LH46DPU 
00052657506BPRNO018873420229WVV1287 
O0OS2657506BPRNO024681270021 LH46DPU 
00052657506BPRN006517247015VAVV1087 
00052657506501R0913670840190WOSI XXX 
00052657506501V0916762720099WOSI XXX 
00052657506501N6287681750021LHH46AX 
000532064 06BPRN0019672880019WVV1087? 
00053206406BPRNO0651861250150ARSTOCK 
ODO53206406DGANOO3B3B105WE54A 

00053206406501R0980872370089WOSIXXX 
00053206406501R0913670840193WOSIXXX 
00054462606BPRN0024670150044LH46SRM 
00054462606BPRNO0246CH460019LPPDETA 
00054462606BPRN0024681785083ARSTOCK 
00054462606BPRN0024672310228LH46SRM 
00054462606BPRN0024481822440AY00029 
00054462606BPRN0042180821722ARSTOCK 
00054462606BPRN6111981771727AY00001 
00054462606BPRN0065181252161ARSTOCK 
00054462606BPRN0018873650382ARSTOCK 
00054462606BPRN6005081742872AY00011 
00054462606BPRN0018870151044LH46SRM 
OO05S4462606DGANOO3838105WE95A 

00054487306BPRNO020420380007APPDETA 
00054487306BPRNO018870151045LH46SRM 
000544873 06BPRNOO246CH4SE60020LPPDETA 
O0O054487306BPRNO024670150045LH46SRM 
00054487306BPRN0024672310229LH46SRM 
00054487306BPRNO065181251997ARSTOCK 
00055166206501N6133132510005WVV0983 


199999799 
199999799 
499999799 
399999799 
199999799 
199999799 
299999799 
199999799 
399999799 
199999799 
199999799 
199999799 
699999PH9 
699999048 
199999P41 
1799999046 
299999R4X 
199999PUZ 
199999PVZ 
899999039 
399999799 
299999799 
599999799 
199999799 
199999799 
299999799 
199999799 
199999799 
399999799 
299999799 
199999799 
499999799 
199999799 


2099999046 


199999PUZ 
199999P41 
199999PVZ 
399999R4X 
199999048 
699999039 
190274CSL 
199999799 
199999799 
199999799 
999999799 
199999799 
999999799 
299999799 
299999053 
199999048 
4999990QWZ 
299999799 
199999799 
299999PH9 
299999R65 
199999053 
299999799 
999999799 
499999799 
599999799 
1899999799 
399999799 
199999799 
1999999799 
399999799 
T3959 9799 
699999799 
299999PH9 
199999799 
699999799 
999999799 
2999957 9:9 
599999799 
299999799 
199999P 87 
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7. OFILE7 


0008198870701216805106 
000$1°599070007324064101215557906 
000524458807000582445721 
00082445707000824458541 
0008263550700431688121 
000860902070018629242700948059421 
0005609030700948059521 
000$62286070091241222100944817021 
000871827070044675 764401143563224 


8. OFILE8 


00051958708B1891 11000G 
00051958708B1892 11000G 
0005819587083CH46AX 1 980G 
000519587083CH46DM 1 980G 
000819S87083CH46DX 1 980G 
000S819S87083CH46EX 1 990G 
O000S19S87083CH46FX 1 980G 
000519S87083HH46AX 1 9806 
000519S887083UH46AX 1 980G 
000S19S87083UH46DM 1 980G 
O0OS19S87083UH46DX 1 980G 
00051958708 7LEVREP 0100GG 
00051959908B1891 11000G 
00051989908B1892 11000G 
00051959908B1895 11000G 
000819S99083CH46AX 1 990G 
000519S99083CH46DM 1 9906 
000819599083 CH46DX 1 990G 
000519S99083CH46EX 1 9906 
000819599083CH46FX 1 990G 
000519599083HH4 6AX 1 990G 
000519599083UH46AX 1 990G 
000819S99083UH46DM 1 990G 
0005819599083UH46Dx 1 9906 
000519599087 LEVREP 0100GG 
OOOS21358083CH46AX 21000G 
0005213S8083CH46DM 210006 
O000S21358083CH46DX 21000G 
00058213S8083CH46EX 21000G 
OOOSZ21358083CH46FX 21000G 
000521358083HH4 6AX 21000G 
OOOS21358083UH46AX 21000G 
0008213S8083UH46DM 21000G 
OOOS21358C83UH46DX 21000G 
O0C0S21360083HHX2DX 1100G2 
OCOS21360083SHX2DX 110062 
O0OS21360083SHX2FX 110062 
O0OSZ21366083HHX2DX 110062 
000821366083SHX2DX 110062 
OOOSZ21366083SHX2FX 110062 
0000S 244S5508AI81RVX 110002 
000S8244SS08AP23ROX 110002 
0008244SS08BG28RAX 1 002 
0008244S708AI81RVX 110052 
0008244S708AP23RQX 1100D2 
00052445708 BG28RAX 1100D2 
O0OOS263SS083CH46AX 6 400G 
000S2635S083CH46DM 6 400G 
0008263SS083CH46Dx 6 400G 
O00S2635S083CH46EX 6 400G 
OOOS2635S083CH46FX 6 400G 
000526355083HH4 6AX 6 400G 
00052635S083UH46AX 6 400G 
00052635S083UH46DM 6 400G 
00052635S5083UH46DX 6 400G 
000526575083CH46AX 21000G 
000526575083CH46DM 21000G 
O0OS26S7S083CH460X 21000G 
OOOS26S7S083CH46EX 21000G 
OOOS26S75083CH46FX 21000G 
0005826S7S083HH46AX 210006 
00082657S083UH46AX 21000G 
000S26S7S083UH46DM 21000G 
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000526575083 UH4EDX 
00053206408B2021 

00053206408B2025 

00053206408LSAGQNX 
00053206408LS5AGWHX 
00054462608581891 

00054462608B1695 

000544626083CH4 6AX 
000544626083CH46DM 
000544626083CH4 6DXx 
000544626083CH4 6EX 
000544626083CH4 6FX 
000544626083HH4 6AX 
000544626083UH4 6AX 
000544626083UH46DM 
000544626083UH4 6Dx 
000544626089XRDXXX 
00054472908GB47RAX 
00054472908L1ADBLX 
00054473808GB4 ERAX 
00054487308B1895 

000544873083CH4 6AX 
000544873083CH46DM 
000544873083CH4EDX 
000544873083CH4 6EX 
000544873083CH46FX 
000544873083HH46AX 
000544873083UH4 6AX 
000544873083UH46DM 
000544873 083UH4EDX 
00055166208851911 

0005516620881912 

000551662088B1915 

000551662083 UHIEXX 
00055512308B2011 

00055512308ST11EAX 
000555123083SHX2DX 
000555123083SHX2FX 
00055951408AAAAAA] 
OOOSS9S1408L2AFTCX 
00056090208AAAAAAI] 
000560902083HHX2DxX 
000560902083SHX2DxX 
000560903083HHX2DxX 
000560903083SHX2DX 
O00S6090408L2AFTCX 
000562286083THX1LX 
000562286083 UHX1LX 
000562286083 UHIEXX 
000562286083 XHH1KX 
00056233908B1891 

00056233908B1895 

000562339083CH46AX 
000562339083CH46DM 
000562339083CH46Dx 
0005862339083CH46EM 
000562339083CH46EX 
000562339083CH46FX 
000562339083HH46AXxX 
000562339083UH46AX 
000562339083UH46DM 


9. Ofile9 


00051958709N0065182350507 
00051958709N0065182451723 
00051958709N0014672581683 
00051958709R0911682571827 
00051958709R0911682571829 
00051958709N0024481370193 
00051958709N0024481380423 
00051958709N0024481970437E 
00051958709N0024482360550 
00055951409N6588982720956 
00055951409N001888134A262 
00055951409N0018882166858 
OOOSE2Z33909NOO383S084VB00E 
OOOSEZ2Z33909NOO3ZB3SO0B4VEDIE 


210006 
11000G 
11000G 
11000G 
11000G 
110002 
110002 
110002 
110002 
110002 
110002 
1 $002 
110002 
110002 
110002 
110002 
110002 
1100D2 
1100Dz2 
11000D 
210002 
210002 
210002 
210002 
210002 
2 $002 
210002 
210002 
210002 
210002 
110006 
110006 
11000G 
1 $00G 
110002 
110002 
110002 
110002 
i” OCF 
2100GD 
1” -COF 
1 006 
1 00G 
1 5006 
1 300G 
210006 
1 00G 
1 00G 
1 106 
1 00G 
110006 
11000G 
11000G 
11000G 
110006 
110006 
110006 
11000G 
110006 
110006 
110006 


2770260588 
27702605BB 
1770260688 
l1AE9VZ06BB 
1AE9V2Z06B8 
2770261588 
17702615BB 
1770261588 
1770261588 
1Z2N3XGO03BB 
1AK1U50658 
1770US06BB 
6753QS08BB 
8753QS08BB 
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=k 





10. OFILE10 


00051958710RTOOOXREV DCC 48,49 REWK AFT SRM 
00051958710TOOOOXBRK OUT GP INT 
0005195871020000XGB4 8RD 

00051958710TOO0O03XNOT INTERCHANGABLE AFTER AFC 342 
00051958710TO0002X0BSOLETE AFTER INCORP AFC 342 
00051958710T0001XH46 DCN 522-03-010 
OOOSISSSS1OUTERE 10732406 
0005195991077272P107R3504-10 
00051959910TO0003XNOT INTERCHANG WITH SRM CONFIG 
00051959910TOO00XBRK OUT GP INT 
0005195991020000XGB4 9RA 
00051959910TO0002X0BSOLETE AFTER INCORP AFC 342 
00051959910TO0001XH46 DCN 522-03-011 
00051959910RTOOOXREV DCC 48 49 REWK AFTER SRM 
OOO52135810INAVY OBSAFTAFC2 88INCORP 
0005213581089513x52-2902-001 
0005213581077272XA02PS417-1 
00052135810Z0000XADSEKA 

00052136010 

0005213601051663XRA22695 
00052136010TOOOOXUTE THEN XA H-2 DCN 8470-21 
OOOS2136610TOO00XUTE THEN XA0Z2Z H-2 DCN B470-20 
0005213661051663XRA22694 

OOOS52445510WEURE 00524457 

00052445510 

0005244551077272xX107D2256-3 

00052445710SBYRL 07583299 

OOOS2445710UTERE 00524455 
0005244571077272X107D2256-2 
00052445710TOOO0OXBRK OUT GF INT 
0005244571077272x107D2256-4 
0005244571081205x107D2256-2 

OOOS2Z635510MEURE 04316881 

OOOS2635S10INAVY USEWITH A1RRESC ACT 
00052635510Z0000XASGAAO 
0005263551070210xX541634-2-1 
0005263551077272XA02RS600-7 
00052657510Z0000XADS1VA 
0005265751077272XA02PS8424-11 
0005265751092003X7-117745-1 
OOOSZES57510TOOOOXALT 91008164501 IAW CHPTMSG 5-81 
0005320641097499X570-074-037-15 
00053206410RTOOOX9YD6615002606314 
O00S3206410TOOO0OXNARF PNCL DCN H1-7-84/323 
00053206410Z0000XEA32BA 
O00053206410TO001XNACN 10054 85252 
0005446261011871P1332-3000 
0005446261081692x721865 
0005446261081692X1332-3000 
00054462610TOO000XBRK OUT GP INT 
00054472910SBYRL 08347475 

00054472910 

0005447291084955PK671751-3 

00054473810SBYRL 09853326 
00054473810849S5PK674827-7 
0005447381084955xXKE74827-5 
00054473810TOCOOXBRK OUT GP INT 
0005448731077272P114PS460-1 
0005448731092003X3-114314 
0005448731096906xXMS51957-14 

00055166210SCBRD 09428208 
0005516621072914P80-0099-5 
0005516621096182P4369-100-23 
0005516621097499X204-075-705 
00055166210Z20000XAMTABZ 
0005516621096182x4408-100-23 
0005516621097499x204-075-705-23 
0005516621097499xX2041075-705-23 
00055166210Z0000XAMUABB 
0005551231039661P611687-1 

00055951410SBYRL 03191768 

00055951410SBYRL 03191770 

00055951410SBYRL 00559513 
0005595141010237P18241-4 
0005595141010237P18241-5 
0005595141010237x18241-3 
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0005595141080000X6615-000559514 
00055951410Z0000XJXE1AA 
OOOSE0SO0Z10WEURE 09480594 
O000SE090Z2Z10RTOOOXREV AFC181 
00056090210Z0000XAD14VA 
00056090210S50000xX1650-001068510 
0005609021010237xX20053-1 
00056090310 

QOOSE0S9D0Z10INAVY USEBEFOREAFC181INCORP 
OOOSE0903Z10WNEURE 09480595 
0005609031010237X20366-1 
00056090310Z0000XAD14WA 
0005609041010237P19720 
00056090410Z0000XAR11CA 
OOOSE2ZZ28610WEVURE 09448170 
0005622861050000xX1650-009124122 
0005622861020000X003496 
0005622861092003XSGT220-1 
0005623391070236P6402 
0005623391019204xX11615819 
00056233910Z0000XCDS8JA 


11. OFILE11 


00052135@11N2R4DPY1 
00054462611N1R5SMN7B 


12. OFILE12 


00053206412A502A501PS60 
00056228612N2R2A702XS10 
Q00SEZ33912A702A702PS4H 
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NALL 
FSCTFG37NATT 
FSCTFG37NATT 





APPENDIX F 


LOCATION OF DEN NUMBERS IN THE NSN SNAPSHOT 


NSN Snapshot 
Nov 16, 1988 
DO46D 
NSN: C003 + COO3A + C042 +D046D SMIC: CO0O3B 
Name: C004 
DRIPR: BOO] LRC: B00O2B Wear Out: FOO7 CNS: BOO? 
RIC: Doos ELT: BOLIA Survival: FOO9 Shelf: C028 
Source: D012 IMC: C016 Entry DTD: C012 FGC: COOLA 
Recovery: DO1SC Hold DTD: BOSS PAC: co09 
ISC: DO2SDEF_E089 
std Price: BOS3 Net Price: BOS9 
Rpl Price: BOSS Unit Issue: coos 
MGR MULTI USER 
PNC FSCM Part # MOE MGR_MOE MOE 
C038 (od ED - Te DOO1 co04c DO95 D094 Dv35-A 
These Three Fields Are Repeating. These Three Fields Are Repeati 
Current Qtr Maint DMD Obs: AOOS 
Current Otr OVHL DMD Obs: AOOSA 
Est Otrly DMD During PLT: BO74 
Total Back Orders: AQl] 
Total Awarded Due _ ins: calculated 


Total UnAwarded Due_ins: 


Calculated 


Application Data 
ACT Application UPA PCT MC ACT Application UPA PCT MC 
DOO0S Doll F018) D013 DOO0S DO1l11 F018 D013 
These Four fields are repeating in two columns. 
PTAS Data 

RFI NON-RFI | PUR ALL 
Site OnHand Due-In Due-Out PPRs SD | FIC CC OnHand Due-In Due-Out | PC OnRand Due-~-In Due-Out PPRs 
A001 A012 A008B AQ21A AO14 BO4EA | AQ1l2A COO3E A012 A008B AO21A | AQ1l12 AOQ12 AOCOB8BB AODZ1A AO0Ol4 
TOTAL SUM SUM SUM SUM | SUM SUM SUM I SUM SUM SUM SUM 

Due-Ins 
Total = 0 
Document Document Ory Ty Purpose Condition EST Delivery 
ID PeGall CLIN From To Contracted Shipped Code Code Date 
KOO0O1 K002 L001 L022 A001 A001 2ND L034 A0O12A COO3E L009 
Repeating Fields. 
Back Orders 
Total BB= 0 
DOC OTY PRJ PR FD BBD STATUS 
KO002 KO02C K036 K024 KO025 K022 K026 
Planned Program Requirements 
Total DGA= 0 Total 101 0 Total 50 0 
Total BPR= 0 Total 301 0 
Doc ID Document PC SUPAD Tex, REOQD PROJ 
KO001 K002 A012A K017 K006 K018 K024 
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APPENDIX G 
PHANTOM USER LOGIN MACRO 


OK KKK KKK KEKE KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK Kk ke 


’ nsn_snapshot - selection Macro to build NSN Snapshot 


* Written by Lt George Marentic Dec 1988 


a a 2 2 oe a oe 2 ee ee ee ee ee oe ee a ee ee oe ee ee ee ee ee ee ee ee ee ee ee eee ee ee eee ee ee eee 


td 


include "app _ids.h" 
include "“errorcodes.h" 
include witielderead.n™ 
include “filing-h” 
include "spreadsheet.h" 
include "windows.h" 


Command snap 1 

var of1,o0f2,0f3,6£5, 0f6,0£8,0f£9, cf10, criivorz 

var line _count, NIIN, DO46D_1, DO46D 2, DO46D_ 3, DO46D_ 5, DO4ED 8 

var DO46D 6,D046D_9,D046D_ 10, DO46D_11,tmp, The_current_window 

var DO46D1_1, DO46D1_2, DO46D1_3, NIIN_2, DO46D_12, CHECK 
PreK KKK KKK KARE KKK KKK KKK KKK KKK HK KKK KKK KKK eK 
V-OUL rece! 

var D046D,B045,C016,C012, B076E, B007, C005, B055, C004, B002B 

var CO0O1A,C001B,C003,C003A,C042,D010 A D,C028,D014A 

var €009, B00], BO1IA, DOZSDEF E089, CO028, BUl 2 Eee ncour 

var BOO] A, BCO] B, BOO] C7, B0Gl 7p, S0ci =: 
ROKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
Oucereeac 

var A0Q0Q5,A005A,B074,A011, F007, D008 
Cee KKK KKK KKK KKK KKK KKK KKK KKK HK KK KRHA KEKE KKK 
POULT EG ce 

Var BOl12 BOIZC, BO12F, F009, D012, DO13C, bl 20; BOs- 
KKK WK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KEK aK KKK KKK KKK KKK ke 
foul Ihecu. 

var K001,K002 1L001,L001A,L022 ,A001 ,A001_2ND ,ORIG QTY 

var AQ12A ,AQ12A_ 2ND,COO3E ,L009,1L034, count_5,print_35,hold_5 

Var lOGpe., @S5poceo 
wee RK Kaha KKK KK 
“out rec 6 

var KOO1l 6,K002_ 6,A012A 6,K0O17 6,KO06 6,K018 6,K024 6 

Var print so, hold 6, count. 6) cop: 6, spocmc 
EKER ww KKK KKK KKK KKK KKK KKK KKK KKK KEK KK KKK 
POut Frecus 

var DOC.) DOlIO1  FClewie Delon 

Var print | ¢, hold 6, countus, loop o> spot. a 
TRUK KKK KRW KK ww KKK KK KK EKER KKK KKK Kea 
Neue ie G0 

var KOO2 KO20,/K036,K022,K025,K026, K02409 

Var peint 97 holds), count, loop.9, spec 
PRE KKK KEKE KKK RK KKK Kw Kh KKK KKK KKK KKK KKK KKK KKK KK ke 
“@ucC rec 

var C035 8B Cll ctscal, DUC co04crl 

Var print 10; nola ile, counter dc) locnmc 
Pew KKK KR KKK wR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK hk Kh 
“OUCe rec iia 

var DO93,D095.1,D095_2,D095_3, D095 _ 4, DGSam>, DOS Seon ht am 700 2am 

var DOSS 97 D0 95a 

Var printoll hold i cougenl); loool 
eR Ew Rk RK Kw KKK KKK KKK KEKE KKK KKK KK KKK KKK KKK KKK 
TOU Che cere 

var DO93_12, DO94 1, DO94 2, DO94 3, D094 4, DO94 5, DO94 6, D094 7 
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war D094 8, DO94 9, D094 10 

Pan DO9512 1,D09512 2,D09512 3,D09512_ 4,D09512_ 5,D09512_ 6 
wee DOI912 7,009512_ 8,D09512_ 9,D09512 10 

weaeeprint 12,hold 12,count_12,loop 12 


2 a 2 ee oe a oe a 2 2 oe a a ee a a eS 


oi Open each file so the data can be read from it. 

CK KKK KEKE KKK KKK KKK KKK KKK KKK KK KKK KEK KK ee 

open: 
Dagmetile(“into/ofilel.txt™, “r™) 
Been tale ("info/ofile2.txt", "r") 
eeen tile (“info/ofile3.txt*, *r") 
pen file(“info/ofileS.txt™,"r") 
epen file(*info/ofileG.txt", "r™) 
epen tile(“info/ofiles.txt", "r"} 
eerie (“into/ofiled9.txt", “r®) 
fweumoile("into/ofileld.txt™,"r™) 
weenetile("into/ofilell.txt","r") 


epen tile("info/ofilel2.txt", "r") 
CK KEKE KKK KKK KKK KKK KEKE EK KKK KEE KEK KKK KK wk 


‘* Initial opening & reading of the file to determine the NIIN for the lst line. 


KKK KEKE KEK KEK KKK KKK KEK KKK KKK KKK EKER KKK KEKE Ea KAKA 


eae —ecead file (“inioo/ofiles.txt") 
beaeD 5 = substr(of5,1, 9) 

meld 5 = DO4ED 5 

Bac — reac file("info/ofileé.txt") 
DO46D 6 = substr(of6,1, 9) 

hold 6 = DO046D 6 

of8 eead file ("info/ofiles.txt™) 
poaou 8 = substr (of8,1, 9) 

Bold 8 = DO46D 8 

page= read file(“info/ofile9.txt") 
OG56D 9 = substr(of9,1, 9) 

held) 9 = DO4ED 9 

erl0 = read file(“info/ofilel0.txt") 
Bb4ecl 10 = substr(of10,1,9) 

hold_10 = DO46D_ 10 

gree cead file("info/ofilell.txt™) 
pee cD 11 = substr(ofil,1, 9) 

hold 11 = DO46D 11 

eal = read file("inio/ofilel2.txt") 
DO46D_ 12 = substr(of12,1, 9) 

hold_12 = DO4éD 12 


Tone count = 0 
poll: 
mene GOUNt = line count + 1 


Swe EEE REE EERE EERE REE REE EEK 


‘* START PULLING DATA FROM OUT-REC-]1 
Meme aD THE FIRST 9 CHARACTERS OF THE LINE...CALL THEM "NIIN“" THIS WILL BE 
momebde VALUE THAT WILL BE CHECKED IN EACH OUT _REC PULL. 
‘* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
KEK KKK RRR KKK EK KKK EK KEK KKK KKK KKK EKER KEKE EEK KES 
orl — read file(“info/ofilel.txt") 
DO46D = substr(ofl,1, 9) 
NIIN = DO46ED 
if DO46D = "Q000000000" then goto finish 
BO4oD1 1 = substr (ofl,1,2) 
BOa60) 2 = substr(of1,3,3) 
DO46D1 3 = substr (ofl, 6, 4) 
HEN 2 = DO4ED1 14+4+%=-"++D04ED1 2+4+"-"++D046D1 3 
B45) = substr(ofl,12, 5) 
E016 Suosem(efl,17,1) 
c012 subst rofl, 16, 5) 
Beyer = substr(ofl,23,1) 
BOO? = Substr (ofl,24,1 
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(ah Oa); SUDStY {Olly 7s.) 
BO55 substr(ofi,27, 9) 
C004 = subst rletl].36,27) 


BOO2B = substr(ofl, 3873) 
COOIA = substrilofl, oi. 1 
COOIB = Substr(of1,6s,)) 


CO03%=—substr (oii. oc,.2) 

COO3A = substr (ofl, 68,1) 

C042 = substr(ofl, 69, 4) 

DO10_A_D = substr (ofl; 7372) 

C028 = substr(ofl1, 78,1) 

DO14A = substr(ofl1,79,2) 

C009 = substr (ofl, 81, 2) 

BOOl A = substr(of1,83,1) 

BOO] B = substr(ofl, 84,1) 

BOOL SC = ssubstr(otl, 85,1) 

BO0O1 D = substr (of1, 86,1) 

BOOl JE = substriotl, 87,1) 

BOIIA = substr(ofl, 88, 5) 

DOZ5DEF_ E089 = substr (ofl, 93, 4) 

E089 = substr (ofl, 96,1) 

COQO0O3B = substr (ofl, 97,2) 

BO053 = substr (ofl, 99, 9) 
CK KKK KKK KKK KKH KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK 
‘* START PULLING DATA FROM OUT-REC-2 
‘* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
RRR KKK KEK KKK KKK Ka KKK KKK KKK KEK KK KKK KKK KKK KKK KKK 
State. 
if DO46D 2 = NIIN goto out_rec_3 

if DO46D 2°= “OO000000C" *gctoroutTrec 3 

of2 = read file (“info/ofile2.txt") 


DO46D 2 = substr(of2,1, 9) 

if DO46D .2°>= "" goto outlnecr4 
pull: 

AOOS = substr(of2,12, 8) 

AOOSA = substr(of2, 20, 8) 

BO?4 = substr(of2, 28,6) 

AOll = substr(of2,36, 8) 

FOO? = substr (of2, 44, 4) 

DOO8 = substr(of2, 48,10) 
if DO46D_ 2 = NIIN goto out_rec 3 
"SEEELELELTEEELEEEEEETLEEEEEEEEEEEEEEEEEEELEEEEEELEEEEEEEELEEELEEELEEEY 
"% IF NOT = NIIN {Set values pulled items (X DO46D 2) to null} 
"SEETLETEEELEETEELEETELETELEEEELESLEEEEEELEEEEEEELELELEEEEEELEEELELELS 
A005=A005A=B074=A011=F007=D008=" " 
Goto out, rec 3 
KKK KKK EK EK KKK KEK KEKE KK KKK KKK KKK KKK KK 
‘* START PULLING DATA FROM OUT-REC-3 
’* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
KEE K KEKE KKK KKK KKK KEK KKK KKK KKK KKK KKK KEK KKK KKK KEK 
out_rec 3; 
if DO46D_3 = NIIN goto out rec 5 

if DO46D_3 = "000000000" goto out_rec 5 

of3 = read file(“infco/ofile3.txt™) 


DO46D.73" = “substc (ots, 179) 
if DO46D_ 3. = "" goto out rec 5 
pull. 3: 
BOl2 BOL2ZC = ‘subser (ors, 1274) 
BO12F = substr (of3,16, 4) 
FOO9 = substr(of3,20, 4) 
D012 = substr(ofs,24,2) 
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Poise = substr(of3, 26,1) 

Diz@ = substr(of3, 27, 2) 

Peo substr(of3, 29,10) 
mee 46D 3 = NIIN goto out_rec_ 5 
FTEEREEEEEEEEEEEEEEEEEEEERESEEETEEEEEESEEEETEEETELETE LET ELELELESETESES 
cs IF NOT = NIIN {Set values pulled items (X DO46D_3) to null} 
"SETEEEEEELE EEE EEE TE EEE ELE EEEEEE LEE LESTE EELESEELETEEEEEEEEEETEEEEEEEEEE 
BO12_ B012C=B01] 2F=F009=D012=D013C=D120=B059=" " 
Meco Out rec 5 
ORR KR KKK KKK KEKE KEK KEKE KKK EERE RK KKK RK KR EKER ERE KKK KKK KK KEKE 
‘* START PULLING DATA FROM OUT-REC=-5 
** HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
PRR KKK KKK KK KKK KEKE KEK KKK KKK KKK KEKE KEKE KEKE ERK KKK KEKE KKK KKK KEK KKK 
out rec 5: 

ecunt 5 = 1 

or DO46D 5 = NIIN goto pull 5 

mesPC46D 5 <> NIIN goto out _rec 6 


mext line 5: 
ofS = read file ("“info/ofile5.txt") 
Gount See,count 5 + 1 
Beeb o— substr(of5,1, 9) 
if DO46D_5 <> NIIN goto out _rec 6 
poll 5: 
ee (count 5) = substr(of5,12, 3) 
meee LOCl{(count 5) = substr(of5,15,15) 
BeotA(count 5) = substr(of5, 30, 4) 
mize (count 5) = substr(of5, 34, 6) 
AQOl[count_5] Subse n(ors, 40,3} 
A0OQ1] 2ND(count_5] = substr(of5, 43, 3) 
ORIG OTY(count 5] = substr(of5, 46,7) 
eeeer (count 5) = substr(of5,53,1) 
Pee %(count 5) = substr(of5, 54,5) 
Bes4(count 5] = substr(of5,59,7) 
AQI2A[{count 5] = substr(of5, 66,1) 
BOrZA 2ND(count_5] = substr(of5, 67,1) 
hold 5 = D046D_5 
goto next line 5 
Fe KK KK KK KK KK KKK KKK KKK KEKE EK KHKAKSE 
’* START PULLING DATA FROM OUT-REC-6 
“* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 


i ee ee ee ee ee eee eee ee ee ee ee ee 2 ee 2 2 2 ee 2 2 ee a a nd a a aes 


Seuerrec 6: 
Count 6 = 2 
if DO46D 6 = NIIN goto pull 6 
if DO46D_ 6 <> NIIN goto out_rec 8 


next_line 6: 
eee read file(“info/ofile6.cxt™) 
Count € = count 6 + 1 
DO46D_6 = substr(of6,1, 9) 
if DO46D_6 <> NIIN goto out_rec 8 
pull 6: 
KO001] 6[count 6) Subst r(ofo, 12,3) 
KOO02 6[{count_6) = substr(of6,15,14) 
AQ12A_ €6[count_ 6] = substr(of6, 29,1) 
Kol? 6(count 6) SUbSctE(GEG 3076) 
KO006_ 6[count_6] SUDSCE(OEG, 36, 7) 
KO018 6[count_ 6) SuDdSst CO (Gf6,43,5) 
K024 6[(count_ 6] substr(of6, 48, 3) 
hold _6 = D046D 6 
goto next_line 6 


; HTT RTI HI KK OH KH KK KK KK RK KKK KKK KEKE KKKKK 


** START PULLING DATA FROM OUT-REC-8 


lel 


‘* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 


OO OO OOOO TOO OO Ok 


OULREec ue: 
counts ——1 
if DO46D © = NIIN goto pulins 
if DO46¢D 8 < NIIN goto ucuemrecer 


Next news 
of8 = read _ file("info/ofile8.txt™) 
count. 8 = coune $8 2 
DO46D_8 = substr (of8,1, 9) 
if DO4GD 8 <> NIIN goto out srecr? 
pull 8: 
BOO? 1 [count 8) substr (of8, 12,10) 
DO1L l[eount 8] = Ssubster (otb, 22,6) 
FUL ileounk ss) substr (018,28, 5) 
DOs Tileount ss] Subst. (OLE, 2, 2) 
hold 8 = DO46D 8 
goto next_line 8 


OO KK KKK KKK KKK EK KK KKK KEKE KKK KKK KKK KKK 


‘* START PULLING DATA FROM OUT-REC-9 
‘* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 


ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee oe ee ee ee ee ee ee ee ee ee ee eee el 


OUt reca: 
eounte 2 = 71 
if DO46D_ 9 = NIIN geto pulls? 
af DOSED 9 <> NIIN Gore ours recs 0 


next line 9: 
OLo = read file ¢™inio,or1 les xc) 
COUNnc 2° = cOuUnEn ata! 
DO46D_9 = substr (of9,1, 9) 
if DO46D 9° <> NIINGgoro ont yeec 0 
pull: 
KO02 KO20 (count. 9) = substr (of9,12,15) 
KOS6(counc. 3) = Suo>sce(or?..27,.5)) 
KOz4 9[count 9] = substr(of9, 32, 3) 
KO022[(count 9} = “substrlots, 35,2) 
KO2Z5 (count 99) ) = subst. (687735), 2) 
KOZ6(counc 3} SUDSEL (OLS, 39, 2) 
hold_9 = DO46D 9 
Goto next line 2 


week ee ew KE EK KEKE KKK KKK KKK KKK 


‘* START PULLING DATA FROM OUT-—REC~-10 
** HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 


Coke kk ee KKK KEKE KKK KEK KK Ke 


CULT rec 10; 
count_10 = 1 
if DO46D 10 = NIIN goto pull 10 
if DO46D_10 <> NIIN goto out_rec il 


nextel ane sO: 
Of10 = read stile intro/olilel0,exc"™) 
count 10 (= Count hU ss.) 
DO46D_ 10 = substr(ofl10,1, 9) 
if DO46D_ 10 <> NIIN goto out_rec 11 


pull 10: 
€035_B € i [count 10)>= substr(cfl0 71275) 
CO38 (counts) 0) substriefl 07771) 
DOO] cO04C l[count_10}) = substr(of10,18, 32) 
. C035. B Co2[eceunt. 0) = Ssubstr(oii075075) 
‘ C038 _ 2[ count. 10] "= subst r(ofiiG,oo, 1) 
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: peo? CO04C 2[count_10] = SubsSemioulO, 56,32) 


: e035 B.C 3[count 10) = SsupDSstr (orl10, oc, 5) 
i C036 3[ecount 10) = substr(of10, 93,1) 
: DOO] cO04C 3[count_10]) = substr(of10, 94,32) 


hold_10 = DO46D_10 

goto next_line 10 
COKE KKK KEK KKK KEKE KKK KEW EEK KEKE EK KEKE KEE KAKA KEKE KK KEKE 
‘* START PULLING DATA FROM OUT-REC-11 
‘* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
PRK KEKE EATER KEKE AEE EEA KEK KEKE KEKE KKK EKA KEK KEK KEK EKER 
euewrec ji: 

count_1ll = 1 

if DO46D 11 = NIIN goto pull _1l 

geeebO46D 11 <> NIIN goto out_rec 12 


Dee celine 11; 

moet — read file("info/ofilell.txt™) 

eeunce 11 = count 11 + 1 

Py4oD 11 = substr(ofli,1,9) 

ee DO46D_ 11 <> NIIN goto out_rec_ 12 
Por. 11: 

Eeestcount 11) = substr(ofll1,12,4) 

Pe9s i1[count_ 11) = substr(of11,16, 4) 

DO95 2[count_11] = substr(ofll, 20, 4) 

BOYS 3{[count 11) = substr(ofl1l,24,4) 

beg) 4[count_11] = substr(ofl1l1, 28,4) 

meeo S(count 11) = substr(ofl1l1, 32,4) 

Boys Gicount 11) = substr(ofl1l, 36,4) 

Bey ?[count_11] = substr(ofl11,40, 4) 

Bee {count 211) = substr(of1l1, 44,4) 

Pee> 9{count 11) = substr(ofl1i, 48,4) 

Bees 1O0[count 11] = substr (ofll1,52, 4) 
hold 11 = DO46D 11 

Beno next line 11 
PEK EK KEK KKK KK RK RK KKK KK RK KKK KKK EKA 
‘* START PULLING DATA FROM OUT-REC-12 
“* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
Ln ae ab ah ab a an a a a a a a a ee a a a a a a a a a a a a a a a a a a 2 a 2 2 a 2 2 a a a a a a a a a a a 
eaeyrec 12: 

Geunt 12 = 1 

meee’ 46D 12 = NIIN goto pull 12 

mre DO46D 12 <> NIIN goto out_ree eno 


mexeeline 12: 
pele = read file("info/ofilel2.txt™) 
eemnt i2 = count 12 + 1 
Be4cD 12 = substr(ofl12,1,9) 
if DO46D_ 12 <> NIIN goto out_rec_end 
poll 12; 
Bees i 2icount 12] = substr (ofl2,12,4) 
Deeari (count 12] = substr (of12,16, 8) 
bOY4 2{count 12) substr (of12, 24, 8) 
DUST *s [count _12] Subsctr (Of 12532, 6) 
DO94 4[count_ 12] subst r (of l2,-40'76) 
BOvs So [count 12) substr (ofl2Z, 48, 8) 
DO94 6[count_12] SUDSEE(OL LZ, 56,0) 
BO?4 7[count_12) substr (of12, 64,8) 
D094 8[count 12] SuUDStr (ofl 2,72,6) 
Bove [count 12) substHtorl 2, 20, 8) 
DOS4 10[count 12] = substr(of12, 88, 8) 
DO9512 1[count_12] = substr(of12, 96, 4) 
Bepete 2(count 12] = substr(ofl2,100, 4) 
poet 2 s(count 12) = substr(ofl2,104, 4) 


SS 


DO9512 4[caunt 12) = substrtot. 72.108, 4) 
DO9512 S{count. 12) = subst, (eri27 412, 4) 
DO9512 6[count_12]) = substr(ofl2,116, 4) 
BO9512-7/ (count -17)o— SUBStritef 2, 12074) 
D09512 8{count 12) = substz(orl271 2474) 
DO9S12 S9[colntl12)) = substrieii27 26,4) 
D09512 _10[count_ 12) = substrterl2, 132,4) 

hold 12 = DO46D_12 
goto next line 12 

‘linescount=— Wineleoune gta. 

out rec end: 


eww WKH KKK EKER KEKE KKK KKK KKK KEKE KKK KKK KKK KH Ke 


(* Make sure thet the Main) Menus tsetne current. window. 
CREEK KHER KKK EKER KKH KKK KEKE KEE KKK 
‘On error gore data puld 
“ehneek = find DOC (NIIN+ + Ssous 7a 0) 
welensiovje Sal 
daten pull: 
Interrupt_key 
Ey pe Gr) 
Execute _ key 
ESCape: key )(5) 
Back _return_key (2) 
KR HEKE KEKE HKKEHK a EK Kw KK KHKKEa eK KKa 
‘* Open the Spreadsheet. 
oi 1. If the spreadsheet already exists the old data is removed. 
a 2. If the spreadsheet does not exists it is created. 
CRE KEKE KKK KEKE KEK Eh KEKE KEE KEK 
open SS: 
meno type("e",. "Main. menu) optaon:. ") 
DeLuna Kkey, 
MENnD EY pet Ni ENe ts sot et Names: \) 
return key (15) 
Wait while busy () 
tmp = CURRENT WINDOW NUM () 
The_current_ window = WINDOW_INFO (tmp) 
if The current: window (WINDEX#APP_ TYPE ] <> APP#MAIN_ goto Start ss 
FetCuUra key menu type(“thesis", "Drawer: ") 
recurne key 
menu typet"data“; Folder.) 
return key (2) 
menu _type("s","Pick a document type: ") 
return key 
menu type("™snap ss i", "Style gquide/model document. | 
return_key 
execute key 
wait while busy () 
Stabioss. 
‘ make sure the spreadsheet is purged of cld data 
purge 
* move cursor to Al 
home_line_key 
return key 
Wait while busy () 
MENUS EyY pe (Tre Nek mano t One '4) 
return key 
menu type (*al™; "Range or cell: ™) 
return_key 


WlOUUCG: 
(wwe ek ko Kok kk or ko Roo kr RO KO wR EEK KKK KKK KKK 


Jig Start writing data to view 1 
Cee EKER KEKE KK KK KKK KEKE KEKE KKK 
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Peturn key 
type (" *++C003++COO3A++™ “4++C042++"—"++NIIN 2) 
Becuirn key (5) 
type (C003B) 
Mewar key 
home_line_key 
return key 
memuecype(“r","Pick an option: ") 
return key 
menu Cype("b3","Range or cell: ") 
beturn key 
type (C004) 
down_arrow_key down_arrow_key 


‘##Places an if the DRIPR Char space is blank 
mmeeo! A <> " ™" then goto DRIPRI 

BOOl A =" _" 

DRIPRI : 

feeeool B <> “ “ then goto DRIPR2 

Boo B =" 

DRIPR2: 

memeoo: C <> “ “ then goto DRIPR3 

Boorc US" " 

DRIPR3: 

Meeev0l D <> " " then goto DRIPR4 

Peep =" "™ 

DRIPR4: 

Peeco. — <> “ “ then goto DRIPRS 

Bec, BE =" " 

DRIPRS: 

BOO] = BOO] A++B001 B+t+B001 C++B001 D++B001 E 


type (B001) Down_arrow key 

type (D008) Down arrow key 

type (D012) Down_arrow key 

type (D013C) Down_arrow key (2) 

type (BO53) Down_arrow _key 

Sype(B055) return_key (2) 

Type (C005) up arrow key 

Bye (2059) up_arrow key (3) 

type (C016) up arrow key 

type (BC11A) up_arrow_key 

fyeei5002B) return key (3) 

type (F007) Down_arrow_key 

type {F009) Down _arrow_key 

type (C012) Down_arrow_key 

type (B045) Down_arrow_key 

type (DO2ZSDEF E089) return_key (2) up _arrow_key 
type {C009) up arrow key 

type (COO1A) up arrow key 

type (C028) up_arrow_ key 

type (B0O07) up arrow key (2) left arrow _key 


ie Te a de a a a ae a ae a ae ee ae a ee ee a i ae a a a a ae ee ae ee ae a ee a 2 Oe a Oe a ee ee a Oe a a a ee ee a a a es 


eid Write the Acquisition advice code 
ib > dt ih de ie ae ae ae a a a ee ee ee ee a ee ee ee ee a a a a ae ae a a ae ae ee ee a ee a ee a a a a a a a a ae ee 
meel0eS = “T™ then 
ACC T = "CONDEMNED" else goto next 1 
goto print 
mext.1: 
if E089 = "Vv" then 
ACC T = "TERMINAL ITEM" else goto next 2 
goto print 
Hex 2% 
if E089 = "Y" then 
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ACC T = “TERMINAL ITEM" else goto next_3 
goto print 
NexeEs: 
ACC Te= 
Prine: 
type (ACC 7) ~return key 


home_line_key 
return key 
menu type ("r, "Pick ‘an Option.) 
return key 
menu_type("al4", "Range or cell: ") 
return _key 
write 10: 
loop 10 = 1 
if noid 10) <> NIIN gote,afcer 10 
writer) 00a. 
type ("“"++C038 lf{loop 10)) return_key type ("’ "370350 8B 1Cul i locp 10) ee urmakey 
type ("°"++D001 .c004C 1 (loop 10)) 
return_key goto _key goto _ key left _arrow_key down_arrow_key 


‘type ("*"+4+C038 2[loop 10]) returmukey tyoet™* ©+4C035 Bicee | teopeuee 
‘return_key type("’"++D001 CO04C 2[loop 10)) 

‘return_key goto _ key goto_key left_arrow_key down_arrow_key 

‘type ("°"++C038 3[loop 10)) returmikey type (? "7100s oeeee es iccom. |) 
*return key type ("’ “s+ D001 2C0 04ers (commu 

‘return key goto key goto key left _arrow_xey down _arrow_key 


loop 10 = toon 103+ 21 
if loopel0 “<scount 10 +geecewrive ws) oer 
atten .10r 
home_line_key 
return key 
menu type tir, Pick an opt hon.) 
return key 
menu type (e914, sRance cre ce ui.) 
return key 
write 11: 
loop. iig= 1 
if hold_11 <> NIIN goto after 11 
type (DO9Sifloop 11]) return key (2) 
write IIA: 
type (D095_1[loop_11]) Down_arrow_key 
type (D095 2[loop 11]) Down arrow key 
type (D095_3[loop_11]) Down_arrow_key 
type (D095_4[loop_11]) Down_arrow key 
type (D095 _S5[loop_11]) Down_arrow_key 
type (D095 Gj loop. 11)) > Down vaerow ucey 
type (D095_/[{loop_11]) Down_arrow key 
type (D095 _8[loop_11]) Down_arrow_key 
type (D095_9[loop_11]) Down_arrow _key 
type (D095 _10{loop 11]) Down_arrow key 
loop dl = leop ties! 
if loop 11 << ‘counteli acto write fin 
af eetail: 
Wra Ce 7, 
loop 12 = 1 
if hold 12.<> NiINegeto atter 1? 
type (DO093[loop 11]) return key 
write 12 A: 
type (D034 l1[{Loop 12]) Down_arrow key 
type (D094 2[{Loop 12]) Down_arrow key 
type (D094 3[Loop 12]) Down_arrow_key 
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type (D094 4[Loop 12]) Down_arrow key 
type (D094 S[Loop 12]) Down_arrow_key 
type (D094 6[Loop 12]) Down_arrow_key 
type (D094 8[Loop i2]) Down_arrow _ key 
type (D094 9[Loop 12]) Down_arrow_key 
type (D094 10[Loop 12]) Down_arrow _key 
Home line key 

Feturn key 

menumeype ("r", "Pick an option: ™) 

Becturn key 

menu type ("I14","Range or cell: “) 

return key 
type (D095 l[loop_12]) Down_arrow_key 
type (D095 2[loop_12]) Down_arrow_key 
type (D095 3[loop 12]) Down_arrow_key 
type (D095 4[loop 12]) Down_arrow_key 
type (D095 5[loop 12]) Down_arrow_key 
type (D095 6[loop_12]) Down_arrow _key 
type (D095_7[loop 12]) Down_arrow_key 
type (D095 _ 8[loop 12]) Down_arrow_key 
type (D095 9[loop 12]}) Down _arrow_key 
type (D095 10[loop 12])) Down_arrow_key 
MecpeizZ = loop 12 + 1 
meme oor 12 < count 12 goto write 12 A 
after 12: 
rw KKK KKK KKK aaa KEK Ke 


id Start writing data to view 2 
KKK EK KEK Kr 
home_line_ key 
Sercurn key 
Memustype ("r”,"“Pick an option: “) 
return key 
menu _type("nl","Range or cell: ") 
Perurn key 
type (A005) Down_arrow _xey 
type (A005A) Down_arrow key 
Type (B074) Down _arrow_key 
type (A011) down arrow key 


eK KEK KEKE 


ed Start writing data to view 3 
i te ii ee ee eee eee ae ee ie ie ae ae ae ae ae ie ae ie ae te ee ae ae ae ee ee ae ee ae ae ae ae ee ae ae ae ae ae ae ae a ae ae ee ee ee aes 
home_line key 

Berurn key 

Temumtype ("r",“Pick an option: “) 

Return key 

Megumcype (*p2", “Range or cell: “) 

return_key 


erice 8; 
loop 8 = 1 
Spot 8 = 2 


Memocart Out rec 8 printing 
meemeid 8 <> NIIN goto after 8 
write 8 A: 

spore 8 = spot 8 + 1 

Beturn key 

type (D009 1[loop_ 8])) return_key 
type (D011 1[loop 8]) return_key 
eypetrOL@ l[loop 8]) return_key 
type(D013 1[loop 8]) return_key (2) 
return key 

sop 8 = loop 8 + 1 

type(D009 l[loop 8]) return_key 
type(D011 l[loop 8)) return_key 
type (F018 i[loop 8]) return key 


Sy?) 


type (D013 1 [loop 8]) returnicey 
home_line_key 
return key 
menu_type("r","Pick an option: ") 
return_key 
menu _type("p"++spot_8,"Range or cell: ") 
Lecuignmkey 
if loop 8 < count_8 goto write 8 A 
enaieiane (i 
SpOCeCe= Spore) + 1 
PKK KEK KKK KKK KKK KKK KK KKK KEKE KHER KEKE KKKKEKKKKKKKKKKEKKK 
ee: Start writing data to view 4 
PWR KK KKK KH KEKE HK KK KEK KKK K KEKE KKK KEKKHKEKHKKEKKKEKKKK 
home_line_ key 
returnaney 
menu_type("r","Pick an option: ") 
return_key 
menu _type("ab5","Range or cell: ") 
return_key 


write |5: 
Toop 5 =) 1 
spot 5 = 5 


(* Sta ceout 1ec (S7orincing 
if hola 5 <> NIIN Goro atcers> 
WE ae wor 
SEO 5 = (Spotsoei 
type ("S++ K001 [cen 3) rerum rey 
type (KO02 LOO1 [loop Sj++¥ 7 “7+LOC tA 1 ocprol jp erecumnakcy 
type (2°"'++LO22 (loops ye returneney 
type ("*"++A001 [loop 5]) return key 
type (47 "+7001 2nd | Poopes) ) returiakey 
type (ORIG OTY[loop_5]) return _key 
type (LO34[loop 5)) return_key 
type ("° “s AGL 2A woop >) returns key 
type ("*"++COO3E[loop 5]) return_key 
type (LOO09([loop 5)) return key 
home_line_ key 
return: key 
MEnUstyee (7r", “Pick nan Cpevom. me 
EeCUriney 
menu seype (WNab++ Spel. So nhance O1recell: >) 
return key 
ieop..5) = Dopo. 
at loop. 5 <-count 5 gGcte writers 
aiter 3: 


CR KKK KKK KKK KKK KKK KKK KKK aK aK KK KKK 


Start writing data to view 5 
owe KKK KKK KKK KKK KKK KKK KKK KKK 
home line key 

return_key 

menu Cype(" ry, “Ficks an Optic. -) 

return key 

menu_type("am4","Range or cell: ") 

return Key 


Wits e pos 
loop 9 = ] 
spot 9 = 4 


Scat esOUC Tecmo eOora tL ing 

if hold_9 <> NIIN goto after 9 
Write, 9 oR: 

SpOt  9= Spots? 371 

type (KO0Z_ KO20[loop 9]) return key 
type (KO36[loop 9])) return_key 

type ("°"++K024 9[loop 9]) return key 
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bype("*"++KO25[loop 9]) return_key 
yee "++KO22(loop 9)) return_key (2) 
Byeeqo°-"++KO26[loop 9)) return_key (2) 
Demir ozo6lloop 9] = “BB") then type("l1") else type("0") return_key 
mamer26[loop 9] = "BD") then type("1") else type("0") return_key 
home_line_ key 
return_key 
menu_type("r","Pick an option: ") 
peturn key 
menu_type ("am"++spot_9,"Range or cell: ") 
return key 
agoms = loop 9 + 1 
memeeocD) 9 < count 9 goto write_9 A 
arver 9; 


CREEK KEKE EEE eK EAA EREKREK 


a Start writing data to view 6 
a a ee ee a a a a 
home line key 

return_key 

memuetype("r", "Pick an option: ") 

return key 

menu_type("az5","Range or cell: ") 

BeiLurn key 


write 6: 
loop 6 = 1 
spot 6 = 5 


Mapocart Out rec 6 printing 
meenold 6 <> NIIN goto after 6 
wirce 6 A: 
Spot 6 = spot 6+ 1 
moe. ++K00l 6[loop 6]) return_key 
type (KOO2 6[loop 6]) return_key 
Eype (“°"++A012A 6[loop 6)) return_key 
mypet° "++K0l7 6[loop 6]) return_key 
type (KO06 6[loop 6]) return_key 
type (K018 6[loop 6]) return_key 
Eype("’ "++K024 6[loop 6]) return key 
if (K001 6[loop 6] = "DGA") then type("1") else type("0") return_key 
moe 0l 6[loop 6) = “BPR") then type("1") else type("0") return key 
een cO] 6{loop 6} “101") then type("1") else type("0") return key 
Hoek 0Cl 6[loop 6} Pod ethene y pel.) elses typet= 0) ireturn key 
fan!) 6[loop 6} oo mune hat ype (in ne lSemty pe (aC eeretunn okey 
home line key 
Beturn key 
Begumeype (“r“,“Pick an option: ") 
return key 
momueeype (“az’++spot 6,"“Range or cell: "™) 
return key 
loop 6 = loop 6 + 1 


meeroop 6 < count 6 goto write 6 A 
eecer 6: 


‘*close the open spreadsheet 
selection line (2,"C") 
fDeeoueeype("c", “Clerk option: ") 
return key 


eoro pull 

Steeeine count < 1 goto pull 

finish : 
Seceetile("info/oltilel.txt”) 
Close file ("info/ofile2.txt") 


ay 


close file{™infto/ofiles- xa) 
elese file(“inio/otiles sexe |) 
close file(“info/ofiletJexem 
close file(“info/ofile8.txt") 
Close, tile (“info/orlleg sexe) 
close file("info/ofilel0O.txt") 
Close file{("info/ofileli.txct™) 
close filet *inioyelt el2 ue 


add ptas 
back_return_key (2) 
joey 

wait while busy () 
endcommand 


PRK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK kkk 


‘* Program to add the PTAS data to the snap spreadsheet 
V< Sbutie bY “snap sl. 
eK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK K KKK KKH 
inelude “app ids h” 
include "errorcodes.h" 
include "field read.h" 
ineclacde Pi riling she 
include “spreadsheet.h" 
include "windows.h" 
function add ptas 
var of1],of4,NIIN, DO46D 
var AO01,A012 1,A008B 1,A021A 1,A014 1,B046A,A012A 2,CO003E,A012 2 
var AOO8B 2,A021A 2,A012A_ 3,A012_3,A008B 3, AO21A_ 3,A014 3,hold 4 
Var count, count 4, loop 4, spot 4,sum_ spet, line scoun: 
var tmp, The current window 
Open ile (“mare /ori lel sexes. 
open file("ints/otvle4 ext a 


re) 

ea) 
count = 0 

Stare yreacing. 
of4 = read file("info/ofile4.txt") 
DO46D = substr(of4,i, 9) 

NexXe oni: 
ofl = read file{™into/opmlel.cxe™) 
NIIN. = sudstrtofl.].3) 


if NIIN = “OQ0G000000" Geto jump 
if NIIN <> DO46D goto next_niin 
count = count +1 


fit count >hi goto) jump 


PRR KKK KKK Ka KKK KEKE KOK RK Re KOK RK Ke 


** START PULLING DATA FROM OUT-REC-4 
’* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
Pee KKK kk ok kk kok kkk kkk kkk kk kkk OO kk KK KK KKK KK KEK KEK KKK aK KK 
outereECc 4: 
count 4 = 1 
if DO46D = NIIN goto pull 4 
if DO46D <> NIIN goto next _niin 


mext sl ine 4; 
of4 = read file(“info/ofile4.txt") 
Count 4°= counee4 
DO46D = substri(of4,1, 9) 
if DO46D <> NIIN goto write it 
Cul 4 
A0O][count_4] = substr(of4,12, 3) 
A012 1l(count_4] = substr(of4,15,8) 
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A008B l[count_ 4] substr (of 4,23, 8) 
A0D21A_l[{count_4] supsty (old, 31,7) 
A014 lf{count_4} = substr(of4, 38, 8) 
RO46A[count_4] = substr(of4, 46,5) 
A012A_2[count_4] = substr(of4,51,1) 
COOSE{count 4] = substr (of4, 52,1) 
A012 2[count_4] = substr(of4, 53,8) 
A0O08B 2[count_4] = substr(of4, 61,8) 
AO21A_2{count_ 4] substr (of 4, 69, 7) 
AQ12A_3{count_4] = substr(of4, 76,1) 
A012 3[{count_4] = substr(of4,77, 8) 
AO008B 3{count_4] = substr(of4,85, 8) 
AOQ21A_3[count_4] = substr(of4, 93,7) 
A014 3[{count_4] = substr(of4,100,8&) 
hold 4 = DO46D 

goto next line 4 


write it: 
open_SS: 
Memuecype ("~e","“Main menu option: ™) 
return key 
femaecype (NITN++™" ss*++™ 1%, "Name: ”) 
mecurn key (1) 
Saiwewnile busy () 
tmp = CURRENT WINDOW NUM_() 
The current window = WINDOW INFO (tmp) 
if The_current_window [WINDEX#APP TYPE ] = APP#MAIN_ goto jump 


CR KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KEKE KKK 


oe Start writing data to view 7 
FRR KE KKK KEKE KEKE KEKE KKK KEK KK 
home_line_ key 
Pecturn key 
Bemuecype (“r","Pick an option: *) 
Beturn key 
menuetcype (“br3", "Range or cell: “) 
return key 
write 4; 
Hoss 4 = 1 
spot 4 6 
meee art Out _ rec 4 printing 
miemold 4 <> NIIN goto after 4 
weite 4 A: 
Spot 4 = spot 4 + 1 
Pygets “++A001[loop 4]) return key 
Cype (A012 ifloop 4]) return key 
type (A008B l[loop 4]) return key 
type (AO21A_l1[loop 4]) return_key 
type (A014 l[loop 4}) return_key 
type (BO46A[loop 4]) return_key 
iret |") return_key 
type ("*"++A012A 2[loop_4}) return_key 
myeet"™ “++COO3E[(loop 4]) return key 
type (A012 2[loop 4]) return_key 
type (A008B 2[loop 4]) return_key 
type (A021A_2[loop 4]) return_key 
Eype("° |") return key 
mypet{, ++A012A 3[{loop 4}) return key 
type (A012 3[loop_4]) return_key 
type (A008B 3{loop_4]) return_key 
type (A021A_3{loop_4]) return_key 
type (A014 3[{loop 4]) return_key 
home_line key 
return_key 
menpuscype("r™, "Pick an option: "™) 
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perucnE key 
menu_type("br"++spot_4,"Range or cell: ") 
LeLurnukey. 

loop_4 = loop 4 + 1 


if loope4 < Count l4 goto writer4sA 

SUM Spot = "spetl4 4 

Cype (“TOTAL”) returnukey 

type ("4+sum(bs3..bs"+1+sum Spot++™) 2) rer urn key 
type ("+sum(bt3...bt“+4+sum spot ++") 3). rer urn key 
type ("+sum(bu3..bu"++sum_spott++")") return_key 
type ("4+sum(bv3..bv"4++sum spott+") =)) relLurmaKey 
return key 

EVpe(™ {ey return key 

return_key (2) 

type ("“+sum(ca3..ca"++sum_spot++")") return_key 
type (“+sum(cb3.. cb"++sum spot++ |). reeumnmcey 
type ("+sum(ce3.ce™+tsum spot." ) "irecunmuncy 
type<7)")) recurm key 

return key 

type (Yrsum (ets. .ecro++sum spott+.))) cecuunm ey 
type ("1sum(cg3)... eg" t++sumesport+") |) rerunmekey 
type (’+sum(ch3. ch. +sumyspoe++ 9)" )) nervengkey 
Eyoe (“+sSum(ci3eci++sum Spout) )recunnmcey 
ebee ra. 

‘*close the open spreadsheet 
selecciongline (2 c.) 

menu stCype (“co Clerk opel Onsa-4 

return key 


goto next niin 
jump: 
closes file ("imto/orilel. txt!) 
Close file(“into/ofi led sexe.) 
endfunction 


i i i ie i i a eee ee ae eee i ee a ee ee ae Me ae ee ae a a ae a a a a a a a i a 


'*® Program to build the NSN Snapshot Document from che 
** from the NSN Snapshot spreadsheet built by snap 1. 
Lh Ae i ie ie ie te ee ae ee ee we a a ee a ee a a ee ee ee a ee a a ae a ae a a a a a a 
‘in¢lude “applids. i" 
"include “errorcodes.h" 
‘include “field read.h" 
gnclvder"2i)angam. 
‘include "“spreadsheet.h" 
“include “windows.h" 
function joey 
var of1,NIIN,NIIN 2,D046D 1,D046D 2,D046D 3,E089 
var tmp, The current window, count ptas, check 


open File(“intoyoriiel,ext =. 2a) 


count _ptas = 0 
Start reading: 
ofl] = read file("info/ofilel.txt") 
NIIN = substr(ofl1,1, 9) 
DO46D_1 = substr (of1,1,2) 
DO46D 2 Subst y (oni; 3, 3) 
DO46D_3 = substr(of1, 6, 4) 
BO69 = subst r(o: 17 96,4) 
NIIN 2 = DO46D) 1+49="++D046D. 2+4+"%="++D046D 3 
count _ptas = count _ptas + 1 
if DO46D 1 = "000000000" then goto bottom 
if count ptas > legeto: botton 


It 
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OMmeerror goto build 
Peeexe= Lind coc(NIIN 2,-1) 
error on error 

Seto start reading 


Cee KEKE KK KK REE KKK KKK KKK KKK KK 


Meeeotart building the DOC. 
CREEK KAR KEKE KKK KEKE KKK KKK KKK KKK KKK KK 
boddd: 
menu_type("e","Main menu option: ") 
return key 
menu type (NIIN 2,"Name: ™) 
i menu type (DO46D_1++"=-"++D046D_ 2++"="++D046D_3,"Name: "™) 
peuurn key 
wait while busy () 
tmp = CURRENT WINDOW NUM_() 
The_current_window = WINDOW_INFO (tmp) 
if The current window [WINDEX#APP TYPE _] <> APP#MAIN_ goto start reading 
Becurn key menupeype (7 enesis”, “Drawer: “) 
Beturn key 
menu_type("“data","“Folder: ") 
meturn key (2) 
menu_type("t","Pick a document type: ") 
Beturn key 
menu _type("“model snapshot", "Style guide/model document: ") 
mecurn key 
Execute key 
wait while busy () 
‘* Now inside aqocument writina to Document. 
type (NIIN 2) 
return key 
Bevection line(5, "E") 
menu type ("i","Edits option: ") 
mewurn key 
Gemumecype ("i", “Inset type option: ") 
Becurn key 
menu_type(NIIN++" ss 1","Document name: ") 
Berurn key 
menu type("view 1","View name: ") 
return key (3) 
Bewection line (5,"5") 
menu _type("i","Edits option: ") 
Becurh key 
Meme skype("i", “Inset type option: “) 
eecurn key 
menu type{(NIIN++" ss 1","“Document name: “) 
meturr key 
menu_type ("view 2","View name: ") 
metro key (3) 
S-c-10n line(5,"E") 
Begeuetype (71°, “Edits option: ™) 
Beturn key 
menu type ("i", "Inset type option: “) 
Eeturn key 
menu ype (NIIN++" ss 1",“Document name: ") 
Peturn key 
menu_type ("view 3","View name: ") 
return_key (3) 
Bevection line(5,"E") 
memuecype("1~, "Edits option: ™) 
return key 
Remieeype(siu, "Inset type option: “) 
Eecurn key 
menue type (NIIN++" ss 1", “Document name: ") 
Bpeturn key 
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menu_type("view 7","View name: ") 
return_key (3) 
selection line(5,"E") 
menu_type("i","Edits option: ") 
returmukey 
menu _type("i", "Inset type option: ") 
LeLuUrnerey 
menu_type(NIIN++" ss 1","Document name: *) 
Beturnekey 
menu _type({"view 4","View name: ") 
return key (3) 
selection line (Ss, *E”) 
MEnULtypet{ i", "Edits option: ~) 
return key 
menu type (“i", “Inset type opticn 5.) 
reLuraekey 
menu _type(NIIN++" ss 1", "Document name: %) 
return_key 
menu _type("view 5","View name: ") 
PeLruEnukey (3) 
Selection 1 ine(s, £.) 
Menu type(“i", “Barts opelon: .%) 
return key 
menu eype ("i"), INSec type Copel one a 
Fecurn key 
menuetype (NIIN++ ss LE) (Document amame yan) 
return key 
menu_type ("view 6","View name: ") 
return_key (2) 
selection line (8, "C™) 
Menu Me yYpet ro, Controls Optom. =.) 
retunmakey 
selects online (87. G.) 
menustypeisnou, jeont rolls sopeienss.) 
recur key 
selection.line(2,"C") 
menultype( cy 7 Clerkeopt toma.) 
return key 
goto start reading 
bottom: 
Glose ti le(into/otitel. txt) 
endfunction 
i i ae te ab ae ae ae at ae ae a a ae ab a ae ae ab ae ae ae ae a ae a ab a ae ae ae a ae a ae ae ae ae ae a a a ae ae ae ae ae ae a ee oe a oe ae ae ae ae ae ae ae ae ae ee ae a ae ae ae ae ae a ae ae ee 
‘* Purges the old data from the spreadsheet. 
i ae ae ae a ae a ee a ae ae ae ae a ae ae ae ae ae ae ae ae ae ae ae ae ae ae ae ae ae ae a ae ee ae ae oe oe ee ee ee ee ae ee a a ee a a ee ee ee ee ee 


‘ 


function purge 

Selection iets.) 

menu type (imo Fick tan optven-. |) 

retumn key 
menu type ("bl,91,b3,b5..b8,d5..d8,95..99,15..19,b10. bilge moa ec 
ade) 


menu type("cl00,914..1100,n1..n4,p2..2100,ab5. .aki00, ama. av 00 azo Dk Mae 
al) 
menu type("100;bra..¢ci1100" "Materials %) 
PetuEn key 
wait while busy () 
home_line_ key 
type (=b") 
return_key 
endfunction 
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APPENDIX H 


INVENTORY MANAGEMENT MACROS 


eon ewatatreeaeeaneteeeesantretatateeneketoeeneeteneeeeeeneneeneeeeeteeneene ete en eeaeene aetna nes 


* command m - Main menu for Inventory management. 
' Written by LT George Marentic 
" Dec 1988 


’ 


Feat eeaeeeananenene tan e eee eeeetneetannee eee ee eenee tee eteaeaeeraeeeteoaetene ene ee eee et one e 


Command m 
Var strs ' Array of Display strings. 
var result ' return of string from run menu 


do_again: 
Strs = " {N) NSN Snapshot", 
a {R) Requisition Processing”, 
> {B) NSN Notebook", 
“s (X) Exit Program", 


gees 
’ 


[Pick an option: ™ 
result = run_menu("Inventory Management", strs) 
result = upcase(result) 
fferesult = “N" 7 
muses it result = “R™ rqn process 
else if result = "B" b 
else if result = "xX" goto finish 
‘ goto do_ again 


finish: 

endcommand 

faeepe te taeraaeenaeeeneraeaee eee eeneeteeaeasteer ee tener eeanhraenaee et eaaeaaaten 
* command n - NSN Snapshot extract macro 

" Written by LT George Marentic 

’ Dec 1988 


‘eee eae eeee ee eer eetannae een e ee atanaeaeaetraerenaeeeearetanaeeaeraerenee eae neetene ee t 


command n 
var screen 1 * Array of display strings 
var result ' Inputed NSN 
var NIIN, home _dir,not_ found 


do again: 
screen 1 ~ " Enter the NIIN you need the Snapshot for”, 


ee 
f 


 Srormat Ol—-173—1238", 
nee 
“" Requested NIIN: " 
result = run_menu("NSN Snapshot”, screen_1) 
result = upcase(resuit) 
Be eresult = ~ ™ goto do again 
NIIN = result 
Start: 
Status message ("Pulling your requested Snapshot") 
interrupt key 
type ("m") 
Execute key 
Escape_key (5) 
Back return_key (2) 
menu_type("e", "Main menu option: "™) 
return key 
menu_type(NIIN, "Name: ") 
return_key 
wait while _busy() 
on error goto bottom 
status_message ("Snapshot 18s ready.") 
goto done 
bottom: 
Status message("NSN not found.”™) 
done: 
endcommand 
,enmeneeneee eta eteaeteeeteneeeeeeeteeneeeeeeeeneeeeeeeaeee eter eree eee eee 
* Command b NSN Notebook input and creation macro 
" Written by LT George Marentic 
" Dec 1988 


*eseanrpetenaneeaetrenane eae eeeeee eet ataee aetna teen eet teen nenreeeeeee tate eneeeetae 


command b 
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var strs, promptids 2, values_2, init_2, start_here_2,i, result 
var strs_l, date_1l, NIIN, check, date, date 2 

var strs_2, strs_3, promptids_3, values 3, init_3, start_here_3 
var strs_4, promptids 4, values_4, init_4, start_here 4 

var strs_S, promptids 5, values_S, init_S, start_here_5, data_5 
var strs_6, promptids 6, values 6, init _6, start_here_6 

var strs 7, promptids 7, values_7, init_7. start_here_7 

var strs_ 6, promptids 6, values 6, init 6, start_here 6 


do_again: 
strs = "", 
“Please enter the NIIN for the STOCK NUMBER NOTEBOOK ", 
"that you want add to or read information about. ", 


we 
e 


" Format 01-123-1234", 


oe of 
e 


" Requested NIIN: "” 
result = run_menu("STOCK NUMBER NOTEBOOK", strs) 
result = upcase({result) 
if result = " " goto do_ again 
NIIN = result 


Start: 
Strs 1 = ers 

“Please select the function you need. ", 
79 99 
7 (Vv) View the Stock Number Notebook", 
. {A) Alternate NIIN Information ", 
_ (E) Contract Expedite Information ", 
is ({R) Contract Reconsignment Information ", 
y (T) Contract Termination Information ", 
i (P) Points of Contact: for this NoInN ; 
7 {C) Pending Change Information ", 
MM (N) Misc Notes & Remarks ”, 
. (xX) EXit this Program “, 
"Pick an option: ™ 

problem: 


result = run_menu("NOTEBOOK Input Selection”™,strs_ 1) 
result = upcase(result) 

if result = "A" gote ab 

else 1f result = "V" goto vb 
else if result = “E" goto eb 
else if result = "R" goto rb 
else if result = "T" goto tb 
else if result = “P" goto pb 
else if result = "C" goto cb 
else if result = “N" goto nb 
else if result = "xX" goto finish 


if (result <> “A")} or {result <> “E”") or ‘(result <> “°R“}- or 
{result .<> °T") or t~result <>=—"P"): oF (result <>. "C"). oF 
{result <> “"N") or (result <> “xX™) { 
strs_1[1] = “Not a valid selection! Please try again.” 
goto problem 


SUL si2= ear 
" Alternate NIIN Information *, 


99 oe 
¢ 


Please input alternate NIIN information for "++4NIIN, 


oo 98 
e 


TALC Ades, 
SALG, P20 %, 
ae 0 ae eae 
"Alt $4: ”, 
WAIT OS2 2, 
CALC GS, 
wn 
“Hit return for blank fields“ 
promptids 2 = 3,6, 7,.6;9,710 
Start here 2 = 0 
values.2= ™" 
init_2 = true 
problem 2: 
values 2 = run_menu("Alternate NIIN 
Information”,strs_ 2,values_2,init_2,promptids 2,start_here 2) 
IF IS_NULL (values 2) BEGIN a 
STATUS MESSAGE ("\"Notebook\" program exited.") 
EXIT 
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END 
init_2 © false 
open _file(NIIN++" Notebook", "a") 
cone = “date” 
date_1 = SHELL COMMAND (date) 
“date 2 = TRIM (date_}l) 
write file(NIIN++" Notebook”, "Alternate NIIN Information") 
write file(NIIN++" Notebook",date 1[0)) 
write file(NIIN++" Notebook", values 2[0)}) 
write file (NIIN++" Notebook”, values 2[1)) 
write file(NIIN++" Notebook”, values 2[2)) 
write file(NIIN++" Notebook", values _2[3]) 
write file(NIIN++" Notebook", values_ 2([4)) 
write file(NIIN++" Notebook”, values 2[5)) 
write file (NIIN++" Notebook”,” ") 
close file(NIIN++" Notebook") 
goto start 


eb: 


css = ei 
“ Contract Expedite Information ", 


92 oe 
+ 


" Please input Contract Expedite Information for "++NIIN , 


a a] 
? 


rcontrect Number : ”, 
“Message/Letter: ", 
"Reply Date : ", 

uC WYomsis 

oa PSTSN, eSi sce 

“Received Delivery: ", 


Ue 
? 


"Use return key for blank fields” 

Pree-pei0s 3 = 5,6,7,8,39.10 
Start here 3 = 0 
wealues 3 =< "" 
init _3 = true 
problem_3: 
values 3 = run_menu("Contract Expedite 
Information", strs 3,values_3,init_3,promptids 3,start_here 3) 
IF IS_NULL (values _3) BEGIN 

STATUS MESSAGE ("\“Notebook\" program exited."”) 

EXIT 

ENC 
Zee = false 
open _file(NIIN++" Notebook", "a") 
eae = “date” 
date 1 = SHELL COMMAND (date) 
write file(NIIN++" Notebook", "Contract Expedite Information") 
write file(NIIN++" Notebook”,date 1(0)) 
write file(NIIN++" Notebook", "Contract Number : "+-+values_ 3[0)) 
Merce tile(NIin++" Notebook", “Message/Letter: “++values_3[1}) 
wrote file(NIIN++”" Notebook”, “Reply Date : "++values_3[2)) 
wrave f£ile(NiIN++” Notebook”, "QTY : “++values 3[3)) 
Wrace tile(NiIN++” Notebook”, "CLIN : "++values 3([4)) 
write file(NIIN++" Notebook”, "Received Delivery: "“++values_ 3[5)) 
write file(NIIN++" Notebook"," ") 
close file(NIIN++" Notebook") 
goto Start 


er ror_report : 


Status message ("This is not a valid NIIN!") 
goto do again 
vb: 


interrupt key 
Peeuecypet Mm, Interrupt option: “) 
return_key 
escape key (7) 
back_return_ key (2) 
menu_type("u", "Main menu option: ") 
return key 
Mende vyoet @ , Utilities option: *) 
return key 
Weniecvpet a2”. ASCii Editor option: “) 
return_key 
menu_type(NIIN++" Notebook”, “Name: "™) 
return key 

goto finish 

Sele) & 
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strs 4 = Say 
*" Contract Reconsignment Information “, 


“ Please input Contract Reconsignment Information for "++NIIN , 


oe 4 
¢ 


“Contract Number : ", 
“Message/Letter: "™, 
“From Destination : ", 
“To Document Number : ", 
“Est Devlivery Date : ", 
OTN, sas 
"Use return key for blank fields” 
promptids 4 = 5,6,7,8,9.10 
Start_here 4 - 0 
values 4 = "" 
init_4 © true 
problem 4: 
values 4 = run_menu("Contract Reconsignment 
Information”, strs_4,values_4,init_4.promptids 4,start_here_4) 
IF IS_NULL (values_4) BEGIN 
STATUS MESSAGE ("\"Notebook\" program exited.”) 
EXIT 
END 
init _4 © false 
open_file(NIIN++"_Notebook”,"a”) 
date = “date” 
date _ 1 = SHELL COMMAND (date) 
write file (NIIN++" Notebook”, "Contract Expedite Information") 
write file(NIIN++" Notebook”, date_ 1[0)) 
write file(NIIN++" Notebook”, ”Contract Number : “++values_ 4[0)) 
write file(NIIN++“ Notebook”, “Message/Letter: “++values 4[1)) 
write file (NIIN++" Notebook", "From Destination : "++values 4[2]) 
write file (NIIN++” Notebook”,"To Document Number : “++values 4[3)) 
write file(NIIN++” Notebook”,“Est Delivery Date : "++values_ 4[4)) 
write file (NIIN++” Notebook", "Oty: “++values_4[5)) 
write file(NIIN++" Notebook"™,” ") 
close file(NIIN++" Notebook") 
goto start 


tb: 


Strs2. = Baar 
" Contract Terminations Information ", 


oe ee 
e 


“ Please Input Contract Termination Information for “+tNIIb | 
ne 

“Contract “Nomber 7: <, 

“Termination Date: "“, 

“Terminated (Y or Nj): “, 

“Original Quantity Due : ", 

"Terminated Quantity = 

“Balance Due : ", 


oe ee 
e 


“Use return key for blank fields” 

promptids 5 =.5,6,7,38,5.10 
Stari here 300 
values 5 =< ™ 
init_5 = true 
prebdlem_5: 
values _5 = run_menu(“Contract Termination 
Information", strs_5,values_ 5,init_5S.promptids 5,start_here_ 5) 
IF IS_NULL (values_5) BEGIN 

STATUS MESSAGE ("\“Notebook\” program exited.") 

EXIT 

END 
init _5 = false 
open_file(NIIN++” Notebook”, "a") 
date = “date” 
date_1 = SHELL COMMAND (date) 
write file(NIIN++" Notebook",”"Contract Termination Information”) 
write file(NIIN++” Notebook”, date_1[0]) 
write file(NIIN++" Notebook”, ”Contract Number : "“++values_ 5[0)) 
write file(NIIN++" Notebook”, “Termination Date: "++values 5[1]) 
values 5[2} = upcase(values 5[2]) 7 
if values 5[2) = “Y" data_5 = “Contract has been terminated.” 
else data 5 = “Contract has not yet been terminated.” 
write file (NIIN++" Notebook”, data 5) 
write file(NIIN+¢+” Notebook”, ”"Original Quantity Due : "“++values_5[3)) 
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write file (NIIN++" Notebook", "Terminated Quantity : “++values 51[4)) 
write file(NIIN++" Notebook", "Balance Due : "++values_5(5]) 

write file(NIIN++"_ Notebook™,” ") 

close file(NIIN++" Notebook") 

goto start 


Db: 


strs 6 = eee 
“" Points of Contact”, 


onae 
’ 


“" Please Input Points of contact for:“++NIIN , 


weet 
? 


“Last Name : ", 
“First Name: “, 
“Company / Command: ", 
“Code / Division: “™, 
“Commerical phone number : "™, 
"Autovon phone number : ", 
Le 
“Use return key for Dlank fields", 
“Use the Misc Notes form for mailing addresses" 
promptids 6 = $,6,7,8,9,10 
start _here 6 = 0 
values 6 = “" 
Tit 6 = true 
problem_6: 
values 6 = run_menu("Points of Contact 
Information™,strs €6,values 6,init_€,promptids 6,start_ here 6) 
IF IS_NULL (values 6) BEGIN 
STATUS MESSAGE (“\"Notebook\" program exited.") 
1Ze.S28 Bh 
END 
init_6 = false 
Open tile (NIIN++” Notebook", “a") 
cate = “date” 
date_1 = SHELL_COMMAND (date) 
Write file (NIIN++" Notebook", "Points of Contacts") 
Write file(NIIN++" Notebook",date 1[0)) 


write file(NIIN++" Notebook", "Name : “++values 6([0)++", “+¢+values 6[{1])) 
write file({NIIN++" Notebook", "Company : “++values_6[(2)) 
Write file(NIIN++" Notebook", "Code / Division : "++values_ 6([3);) 


Write file(NIIN*+"_ Notebook", "Comm : "++values_ 6[4)) 
write file(NIIN++" Notebook", "“Autovon : "++values 6([5)) 
Brace fi Pé(NIIN++” Notebook"”,” “) 

close file(NIIN++" Notebook") 

goto start 


epi: 
Strs 7 - nae 
" Pending Change Information ", 


Please input pending change information for “++NIIN, 


ots 
, 


Nee ys 
eline #2: “, 
miine #3: ", 
Planes eas 
PU tere ae 
“line #6: ", 
tus 
“Hit return for blank fields” 
promptids 7 = 5,6€,7,8,9,10 
start here 7 = 0 
velues 7 = “" 
anit_? = true 
problem_?: 
Values 7 = run_menu("Pending Change 
Information”, strs_7,values 7,init_7?,promptids 7,start here 7) 
IF IS_NULL (values_7) BEGIN Ge 
STATUS_MESSAGE ("\"Notebook\" program exited.") 
EXIT 
END 
init _7 = false 
open_file(NIIN++" Notebook", “a™) 
date = “date” 
date _ i = SHELL COMMAND (date) 
‘date 2 = TRIM (date 1) 
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write file (NIIN++"_ Notebook", "Pending Change Information") 
write file (NIIN++" Notebook", date 1[0)) 
write file(NIIN++" Notebook",values 7{0)) 
write file (NIIN++" Notebook", values _7[1]) 
write file (NIIN++"_ Notebook"™,values 7[2)) 
write file(NIIN++" Notebook",values 7[3)) 
write file(NIIN++" Notebook"™,values 7{4)) 
write file(NIIN++"_Notebook",values_ 7[5]) 
write file(NIIN++" Notebook",” ") 

Close file (NIIN++" Notebook") 

goto start 


nb: 
strs 8 = on 
”" Misc Notes é Remarks “, 


we 
’ 


" Please input Misc Notes &6 Remarks for "++NIIN, 


me 
e 


“line 
"line 
“line 
“line 
"line 
WSLS Ho) 


#1: 
#2: 
#3; 
#4: 
4S; 
#6: 


" 


ve 


" 


gt ee 
e 


“Hit return for blank fields” 
promptids 8 = 5,6,7,8,9,10 
start here 7 = 0 
values 8 = "" 
init _&8 = true 
problem 8: 
values 8 = run_menu("Misc Notes é Remarks", 
strs 8,values 8,init_8,promptids 8,start_here 8) 
IF IS_NULL (values _8) BEGIN 
STATUS MESSAGE ("\"Notebook\" program exited.") 
EXIT 
END 
nits) = “farse 
open_file(NIIN++" Notebook", “a™) 
date = "date" 
date _1 = SHELL COMMAND (date) 
‘date 2 = TRIM (date_1l) 
write file(NIIN++" Notebook", "Misc Notes &é Remarks") 
write file (NIIN++" Notebook",date 1[0])) 
write file (NIIN++" Notebook",values 8[0)) 
write file (NIIN++" Notebook",values 8[1]) 
write file (NIIN++" Notebook", values 8([2]) 
write file (NIIN++" Notebook",values 8(3)) 
write file (NIIN++" Notebook",values 8[4)) 
write file (NIIN++" Notebook", values 8{5)) 
write file(NIIN++" Notebook",™ ") 
close file(NIIN++" Notebook") 
goto start 


finish: 
endcommand 
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